home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ziff.zip / ZIFFPLUS.ASP < prev    next >
Text File  |  1991-10-09  |  103KB  |  3,390 lines
  1. ;
  2. ;   *************************************************
  3. ;   *************************************************
  4. ;   ** ZIFF                                        **
  5. ;   ** █▀▀█ █    █  █ █▀▀▀                         **
  6. ;   ** █▄▄█ █    █  █ █▄▄▄       Procomm Plus 2.x  **
  7. ;   ** █    █    █  █    █      Aspect(tm) Script  **
  8. ;   ** ▀    ▀▀▀▀ ▀▀▀▀ ▀▀▀▀                         **
  9. ;   **        Version 1.00                         **
  10. ;   **                                             **
  11. ;   ** Written by James D. McDaniel (72241,322)    **
  12. ;   ** Copyright (c) 1991 by Ziff Communications   **
  13. ;   ** Last Edit was on 10-3-91                    **
  14. ;   *************************************************
  15. ;   *************************************************
  16. ;
  17. ;  You may use this program free of charge.  If you make changes that
  18. ;  enhance its operation, please send a copy to the PC MagNet 
  19. ;  Utilities/Tips Forum!
  20. ;
  21. ;  You will find both the compiled script (.ASX) and source file (.ASP) in
  22. ;  this set.  ZiffPlus maintains your PASSWORD & Account number in the file
  23. ;  ZIFF.CFG so you do not need to recompile the script to use it.  Should you
  24. ;  pass out a copy of the ZiffPlus Script, DO NOT GIVE them your ZIFF.CFG
  25. ;  file.  If you forget, log on CIS/ZiffNet and change your password at once.
  26. ;
  27. ;  This Script requires the Large Model ASPECT compiler.  Please read the
  28. ;  ZiffPlus document file for more details.
  29. ;
  30. ;  This file also contains Script Segments From:
  31. ;
  32. ;  DataStorm's Cserve Asp file / Rob Dunders ListBox Asp file
  33. ;
  34. ;  ListBox is included by permission of Rob Dunders (6-25-91)
  35. ;
  36. String  CIS_Number,CIS_HighSpD,ID,PassWord,YourDir,RunCommand
  37. String  FCommand,TheDate,Month,Day,FName,TName,DFile,FTemp,DLib,Dlib2="0"
  38. String  Answer,IValue1,CRTMode,ScrnBlnk,OnLineScrn,DDnLdDir,DOld
  39. String  ActiveName,FileSpec,LogSpec
  40. Integer Count,HighSpeed,SelForum,LargeBox=2,InKey,Config,Action=0,ScreenBlnk
  41. Integer ForumSave,FirstTime,OnLine=0,XCurOn,BlankDone,VidLast=1,OpenScrn
  42. Integer Lev0,Lev1,Lev2,Lev3,Lev4,Lev5,Lev6,ScreenMode,SoftAct=0,Klen,MMEM=0
  43. ;
  44. ; Default User Custom Forum Name
  45. ;
  46. String UserForum="IBMOS2"
  47. ;
  48. ; Default Cursor State While OnLine, 1=BLOCK CUR ON & 0=BLOCK CUR OFF
  49. ;
  50. Integer BState=1
  51. ;
  52. ; Default CisB Enquire State, 1=ON anytime online, 0=OFF except on download
  53. ;
  54. Integer Enquire=1
  55. ;
  56. ;-------- System Colors, change if required ---------------
  57. ;
  58. ; When you configure ZIFFPLUS.ASP for COLOR,
  59. ; you will use the following colors
  60. ;
  61. Integer CLev0=79                         ; Menu Headings, top Level Menus
  62. Integer CLev1=47                         ; Secondary Menu Colors
  63. Integer CLev2=31                         ; Default OnLine backgrd Screen Color
  64. Integer CLev3=63                         ; Third Level Menu Colors
  65. Integer CLev4=112                        ; Menu Key Highlight
  66. Integer CLev5=63                         ; Default Ofline backgrd Screen Color
  67. Integer CLev6=71                         ; Configuration Line titles
  68. ;
  69. ;-------- Possible monochrome colors ----------------------
  70. ;
  71. ; When you configure ZIFFPLUS.ASP for B&W,
  72. ; you will use the following colors
  73. ;
  74. Integer BLev0=112                         ; Menu Headings, top Level Menus
  75. Integer BLev1=112                         ; Secondary Menu Colors
  76. Integer BLev2=112                         ; Default OnLine Screen Colors
  77. Integer BLev3=112                         ; Third Level Menu Colors
  78. Integer BLev4=15                          ; Menu Key Highlight
  79. Integer BLev5=15                          ; Default Ofline backgrd Screen Color
  80. Integer BLev6=112                         ; Configuration Line titles
  81. ;
  82. ;--------  Global variables used by ListBox ---------------
  83. ;
  84. define TRUE 1
  85. define FALSE 0
  86. String ListBoxIt1                      ; Item number 1 for ListBox
  87. String ListBoxIt2                      ; Item number 2 for ListBox
  88. String ListBoxIt3                      ; Item number 3 for ListBox
  89. String ListBoxIt4                      ; Item number 4 for ListBox
  90. String ListBoxIt5                      ; Item number 5 for ListBox
  91. String ListBoxIt6                      ; Item number 6 for ListBox
  92. String ListBoxIt7                      ; Item number 7 for ListBox
  93. String ListBoxIt8                      ; Item number 8 for ListBox
  94. String ListBoxIt9                      ; Item number 9 for ListBox
  95. String Boxheading
  96. Integer NumListBoxIts                  ; number of list box items
  97. Integer ListBoxAction                  ; Return code from ListBox
  98. Integer VideoScrn,Cur=1,x
  99. ;
  100. ;**************************************************************************
  101. ;*                          MAIN Program Menu                             *
  102. ;**************************************************************************
  103. ;
  104. Proc Main
  105.     Integer Tmp
  106.     String Temp,SDir
  107.     Set RXData On
  108.     Lev0=BLev0
  109.     Lev1=BLev1
  110.     Lev2=BLev2
  111.     Lev3=BLev3
  112.     Lev4=BLev4
  113.     Lev5=BLev5
  114.     Lev6=BLev6
  115.     HighSpeed=TRUE
  116.     Set Keys On                            ; disable keyboard to host
  117.     Set Alarm Off
  118.     Set Atime 0
  119.     Cur=1
  120.     Set Screen 25x80
  121.     CurOff
  122.     Set StatLine Off
  123.     Call ReadFile
  124.     If Null CRTMode
  125.         Config=FALSE
  126.     Endif
  127.     If Config==FALSE
  128.         StrCpy FCommand "MENU"
  129.         Call ConfigMenu
  130.     EndIf
  131.     Call SetColors
  132.     Call SetBlank
  133.     Call ScrnOnLine
  134.     If FromDdir
  135.         Clear Lev2
  136.         AtSay 1 15 Lev0 "ZIFFPLUS.ASP Can not be run from the Dialing Directory!"
  137.         AtSay 3 23 Lev0 "Press Any Key to Exit ZIFFPLUS.ASP ..."
  138.         KeyGet
  139.         ParmRest
  140.         Exit
  141.     EndIf
  142.     OpenScrn=TRUE
  143.     Call ScrnBack
  144.     Atsay  1 16 Lev0 "   ZIFF                                         "
  145.     Atsay  2 16 Lev0 "   █▀▀█ █    █  █ █▀▀▀                          "
  146.     Atsay  3 16 Lev0 "   █▄▄█ █    █  █ █▄▄▄       Procomm Plus 2.x   "
  147.     Atsay  4 16 Lev0 "   █    █    █  █    █      Aspect(tm) Script   "
  148.     Atsay  5 16 Lev0 "   ▀    ▀▀▀▀ ▀▀▀▀ ▀▀▀▀                          "
  149.     Atsay  6 16 Lev0 "          Version 1.00                          "
  150.     FOR TMP= 2 UPTO 7
  151.         PUTVATTR TMP 64 8
  152.         PUTVATTR TMP 65 8
  153.     ENDFOR
  154.     FOR TMP=18 UPTO 64
  155.         PUTVATTR  7 TMP 8
  156.     ENDFOR
  157.     Atsay 10 25 Lev1 " Written by James D. McDaniel "
  158.     Atsay 11 25 Lev1 "    Copyright (c) 1991  by    "
  159.     Atsay 12 25 Lev1 "     Ziff  Communications     "
  160.     FOR TMP=11 UPTO 13
  161.         PUTVATTR TMP 55 8
  162.         PUTVATTR TMP 56 8
  163.     ENDFOR
  164.     FOR TMP=27 UPTO 55
  165.         PUTVATTR 13 TMP 8
  166.     ENDFOR
  167.     Atsay 15 13 Lev2 "                     - ZiffNet -                      "
  168.     Atsay 16 13 Lev2 " The Online Resource for Computer-Related Information "
  169.     Atsay 17 13 Lev2 "         Home of PC MagNet from PC Magazine,          "
  170.     Atsay 18 13 Lev2 "  Extra! from PC Week, PC/Contact from PC Computing,  "
  171.     Atsay 19 13 Lev2 "                and Computer Shopper.                 "
  172.     FOR TMP=16 UPTO 20
  173.         PUTVATTR TMP 67 8
  174.         PUTVATTR TMP 68 8
  175.     ENDFOR
  176.     FOR TMP=15 UPTO 68
  177.         PUTVATTR 20 TMP 8
  178.     ENDFOR
  179.     Atsay 23 25 Lev5 " << Press Any Key To Start >> "
  180.     Call BlankMe
  181.     KeyGet
  182.     OpenScrn=FALSE
  183. StartOver:
  184.     Call ScrnBack
  185.     BoxHeading = "ZiffPlus ProComm Plus 2.x Aspect(tm) Script v1.00"
  186.     Call HeadBox with  2, Lev0
  187.     Boxheading = \
  188.         "F1=Help, Use Up/Down Arrows with Enter Key or Select Option Number"
  189.     Call HeadBox With 21, Lev0
  190.     While Forever
  191.        ListBoxIt1 = "1  AfterHours, Editorial, Programming, UtilForum ...  "
  192.        ListBoxIt2 = "2  Computer Shopper, PC Week, PC/Contact, Practice ..."
  193.        ListBoxIt3 = "3  File Finder, Reviews Index, SoftLib Library ...    "
  194.        ListBoxIt4 = "4  Billing, Electronic Mail, Terminal Setup ...       "
  195.        ListBoxIt5 = "5  Selected CompuServe Forums Menu ...                "
  196.        ListBoxIt6 = "6  Read Message and File Capture Logs ...             "
  197.        ListBoxIt7 = "7  Shell to DOS    (Type Exit to Return}              "
  198.        ListBoxIt8 = "8  Configure ZiffNet Script File ...                  "
  199.        ListBoxIt9 = "9  Exit ZiffPlus Script                               "
  200.         NumListBoxIts = 9
  201.     MMEM=1
  202.         Call ListBox with 6, 9, Lev1, Lev4 ; Display Main Menu Selections
  203.     MMEM=0
  204.         VidSave 1
  205.         Switch ListBoxAction
  206.             Case 1
  207.                 Call Forum
  208.                 Cur=1
  209.             EndCase
  210.             Case 2
  211.                 Call Forum2
  212.                 Cur=2
  213.             EndCase
  214.             Case 3
  215.                 SelForum=9
  216.                 Call SoftLib
  217.                 Cur=3
  218.             EndCase
  219.             Case 4
  220.                 Call CISMenu
  221.                 Cur=4
  222.             EndCase
  223.             Case 5
  224.                 Call CISForum
  225.                 Cur=5
  226.             EndCase
  227.             Case 6
  228.                 StrCpy FileSpec YourDir
  229.                 StrCat FileSpec "\*.LOG"
  230.                 Call GetFname With 7 18 Lev2
  231.                 If Not Null ActiveName
  232.                     StrCpy FName YourDir
  233.                     StrCat FName "\"
  234.                     StrCat Fname ActiveName
  235.                     StrCpy TName RunCommand
  236.                     StrCat TName " "
  237.                     StrCat TName FName
  238.                     RUN TName
  239.                 EndIf
  240.                 Cur=6
  241.             EndCase
  242.             Case 7
  243.                 GetDir 0 SDir
  244.                 Shell
  245.                 ChDir SDir
  246.                 Cur=7
  247.             EndCase
  248.             Case 8
  249.                 StrCpy Temp CRTMode
  250.                 Call ConfigMenu
  251.                 StrCmp Temp CRTMode
  252.                 If Not Success
  253.                     goto StartOver
  254.                 EndIf
  255.                 Cur=8
  256.             EndCase
  257.             Case 9
  258.                 BoxHeading = "Exit to <D>OS or <P>rocomm :   "
  259.                 Call HeadBox With 11, Lev2
  260.                 Locate 11 55
  261.                 CurOn
  262.                 KeyGet Tmp
  263.                 CurOff
  264.                 If Tmp==100
  265.                     Tmp=68
  266.                 EndIf
  267.                 If Tmp==112
  268.                     Tmp=80
  269.                 EndIf
  270.                 If Tmp==68
  271.                     BYE
  272.                 EndIf
  273.                 If Tmp==80
  274.                 Clear Lev2
  275.                 Set AspDebug Off
  276.                 Set StatLine on
  277.                 Set RXData OFF
  278.                 Set Alarm on
  279.                 Set Atime 15
  280.                 Set keys Off
  281.                 ParmRest
  282.                     Exit
  283.                 Endif
  284.             EndCase
  285.             Case 15104
  286.                 Call HelpMain
  287.             EndCase
  288.         EndSwitch
  289.         VidRest 1
  290.    EndWhile
  291. EndProc
  292. ;
  293. ;**************************************************************************
  294. ;*                   Display ZiffNet's PC MagNet Forums Menu              *
  295. ;**************************************************************************
  296. ;
  297. Proc Forum
  298. Integer Tmp
  299.     Cur=1
  300.     While ForEver
  301.         ListBoxIt1 = "1  PC MagNet - After Hours Forum ... "
  302.         ListBoxIt2 = "2  PC MagNet - Editorial Forum ...   "
  303.         ListBoxIt3 = "3  PC MagNet - Programming Forum ... "
  304.         ListBoxIt4 = "4  PC MagNet - Utilities Forum ...   "
  305.      If Action==0
  306.         NumListBoxIts = 4
  307.      Else
  308.         ListBoxIt5 = "5  ZiffNet Software Library ...      "
  309.         ListBoxIt6 = "6  Go To The Electronic MAIL Menu ..."
  310.         NumListBoxIts = 6
  311.      EndIf
  312.      If Not Action==0
  313.          Tmp=Lev0
  314.      Else
  315.          Tmp=Lev2
  316.      EndIf
  317.      Call ListBox With 8, 20, Tmp, Lev4 ; Display Main Menu Selections
  318.      If Action==0
  319.          VidSave 2
  320.      EndIf
  321.          Switch ListBoxAction
  322.              Case 1
  323.                  SelForum=4
  324.                  If Action==0
  325.                      Call ActionMenu
  326.                  Else
  327.                      ExitWhile
  328.                  EndIf
  329.                  Cur=1
  330.              EndCase
  331.              Case 2
  332.                  SelForum=1
  333.                  If Action==0
  334.                      Call ActionMenu
  335.                  Else
  336.                      ExitWhile
  337.                  EndIf
  338.                  Cur=2
  339.              EndCase
  340.              Case 3
  341.                  SelForum=2
  342.                  If Action==0
  343.                      Call ActionMenu
  344.                  Else
  345.                      ExitWhile
  346.                  EndIf
  347.                  Cur=3
  348.              EndCase
  349.              Case 4
  350.                  SelForum=3
  351.                  If Action==0
  352.                      Call ActionMenu
  353.                  Else
  354.                      ExitWhile
  355.                  EndIf
  356.                  Cur=4
  357.              EndCase
  358.              Case 5
  359.                  SelForum=8
  360.                  ExitWhile
  361.              EndCase
  362.              Case 6
  363.                  SelForum=10
  364.                  ExitWhile
  365.              EndCase
  366.              Case 10
  367.                  VidRest VideoScrn
  368.                  ExitWhile
  369.              EndCase
  370.              Case 27
  371.                  If Action==0
  372.                      VidRest VideoScrn
  373.                  EndIf
  374.                  ExitWhile
  375.              EndCase
  376.              Case 15104
  377.                  If Action==0
  378.                      Call HelpForum
  379.                  EndIf
  380.              EndCase
  381.          EndSwitch
  382.      Clear Lev2
  383.      If Action==0
  384.          VidRest 2
  385.      EndIf
  386.     EndWhile
  387. EndProc
  388. ;
  389. ;**************************************************************************
  390. ;*                   Display Other ZiffNet Forums Menu                    *
  391. ;**************************************************************************
  392. ;
  393. Proc Forum2
  394. Integer Tmp
  395.     Cur=1
  396.     While ForEver
  397.         ListBoxIt1 = "1  Computer Shopper - COMPSHOPPER Forum ..."
  398.         ListBoxIt2 = "2  PC Computing - PC/Contact Forum ...     "
  399.         ListBoxIt3 = "3  PC Week - PCWEEK Forum ...              "
  400.         ListBoxIt4 = "4  Practice Forum - Free Connection ...    "
  401.      If Action==0
  402.         NumListBoxIts = 4
  403.      Else
  404.         ListBoxIt5 = "5  ZiffNet File Finder ...                 "
  405.         ListBoxIt6 = "6  ZiffNet Reviews Database ...            "
  406.         NumListBoxIts = 6
  407.      EndIf
  408.      If Not Action==0
  409.          Tmp=Lev0
  410.      Else
  411.          Tmp=Lev2
  412.      EndIf
  413.      Call ListBox With 8, 20, Tmp, Lev4 ; Display Main Menu Selections
  414.      If Action==0
  415.          VidSave 2
  416.      EndIf
  417.          Switch ListBoxAction
  418.              Case 1
  419.                  SelForum=24
  420.                  If Action==0
  421.                      Call ActionMenu
  422.                  Else
  423.                      ExitWhile
  424.                  EndIf
  425.                  Cur=1
  426.              EndCase
  427.              Case 2
  428.                  SelForum=5
  429.                  If Action==0
  430.                      Call ActionMenu
  431.                  Else
  432.                      ExitWhile
  433.                  EndIf
  434.                  Cur=2
  435.              EndCase
  436.              Case 3
  437.                  SelForum=6
  438.                  If Action==0
  439.                      Call ActionMenu
  440.                  Else
  441.                      ExitWhile
  442.                  EndIf
  443.                  Cur=3
  444.              EndCase
  445.              Case 4
  446.                  SelForum=7
  447.                  If Action==0
  448.                      Call ActionMenu
  449.                  Else
  450.                      ExitWhile
  451.                  EndIf
  452.                  Cur=4
  453.              EndCase
  454.              Case 5
  455.                  SelForum=21
  456.                  ExitWhile
  457.              EndCase
  458.              Case 6
  459.                  SelForum=22
  460.                  ExitWhile
  461.              EndCase
  462.              Case 10
  463.                  VidRest VideoScrn
  464.                  ExitWhile
  465.              EndCase
  466.              Case 27
  467.                  If Action==0
  468.                      VidRest VideoScrn
  469.                  EndIf
  470.                  ExitWhile
  471.              EndCase
  472.              Case 15104
  473.                  If Action==0
  474.                      Call HelpForum2
  475.                  EndIf
  476.              EndCase
  477.          EndSwitch
  478.      Clear Lev2
  479.      If Action==0
  480.          VidRest 2
  481.      EndIf
  482.     EndWhile
  483. EndProc
  484. ;
  485. ;**************************************************************************
  486. ;*                   SoftLib Database Menu                                *
  487. ;**************************************************************************
  488. ;
  489. Proc SoftLib
  490.     Cur=1
  491.     While forever
  492.         ListBoxIt1 = "1  ZiffNet File Finder           "
  493.         ListBoxIt2 = "2  ZiffNet Reviews Database      "
  494.         ListBoxIt3 = "3  Auto Log To SoftLib Database  "
  495.         ListBoxIt4 = "4  Auto Download SoftLib File(s) ..."
  496.         NumListBoxIts = 4
  497.     Call ListBox With 8, 20, Lev2, Lev4 ; Display Main Menu Selections
  498.         VidSave 2
  499.         Switch ListBoxAction
  500.             Case 1
  501.                 SelForum=21
  502.                 Call AutoLog
  503.                 Cur=1
  504.             EndCase
  505.             Case 2
  506.                 SelForum=22
  507.                 Call AutoLog
  508.                 Cur=2
  509.             EndCase
  510.             Case 3
  511.                 SelForum=8
  512.                 Call AutoLog
  513.                 Cur=3
  514.             EndCase
  515.             Case 4
  516.                 SoftAct=-1
  517.                 SelForum=8
  518.                 Call DownFile
  519.                 SoftAct=0
  520.                 Cur=4
  521.             EndCase
  522.             Case 27
  523.                 VidRest VideoScrn
  524.                 ExitWhile
  525.             EndCase
  526.             Case 15104
  527.                 Call HelpSoft
  528.             EndCase
  529.         EndSwitch
  530.     Clear Lev2
  531.     VidRest 2
  532.     EndWhile
  533. EndProc
  534. ;
  535. ;**************************************************************************
  536. ;*                       CompuServe Service Menu                          *
  537. ;**************************************************************************
  538. ;
  539. Proc CISMenu
  540.     Cur=1
  541.     While forever
  542.         ListBoxIt1 = "1  Auto Log To Billing Information Area "
  543.         ListBoxIt2 = "2  Auto Log To Electronic MAIL Area     "
  544.         ListBoxIt3 = "3  Auto Log To Terminal Setup Area      "
  545.         NumListBoxIts = 3
  546.     Call ListBox With 8, 20, Lev2, Lev4 ; Display Main Menu Selections
  547.         VidSave 2
  548.         Switch ListBoxAction
  549.             Case 1
  550.                 SelForum=19
  551.                 Call AutoLog
  552.                 Cur=1
  553.             EndCase
  554.             Case 2
  555.                 SelForum=10
  556.                 Call AutoLog
  557.                 Cur=2
  558.             EndCase
  559.             Case 3
  560.                 SelForum=20
  561.                 Call AutoLog
  562.                 Cur=3
  563.             EndCase
  564.             Case 27
  565.                 VidRest VideoScrn
  566.                 ExitWhile
  567.             EndCase
  568.             Case 15104
  569.                 Call HelpCIS2
  570.             EndCase
  571.         EndSwitch
  572.     Clear Lev2
  573.     VidRest 2
  574.     EndWhile
  575. EndProc
  576. ;
  577. ;**************************************************************************
  578. ;*                       CompuServe Forums Menu                           *
  579. ;**************************************************************************
  580. ;
  581. Proc CISForum
  582.     Cur=1
  583.     While Forever
  584.         ListBoxIt1 = "1  User Prompted CompuServe Forum Name ..."
  585.         ListBoxIt2 = "2  DataStorm Forum ...                    "
  586.         ListBoxIt3 = "3  IBM HardWare Forum ...                 "
  587.         ListBoxIt4 = "4  IBM Application Forum ...              "
  588.         ListBoxIt5 = "5  IBM Systems Forum ...                  "
  589.         ListBoxIt6 = "6  IBM Communications Forum ...           "
  590.         ListBoxIt7 = "7  MicroSoft Advanced Windows Forum ...   "
  591.         ListBoxIt8 = "8  MicroSoft Operating System Forum ...   "
  592.         NumListBoxIts = 8
  593.     Call ListBox With 8, 20, Lev2, Lev4 ; Display Main Menu Selections
  594.         VidSave 2
  595.         Switch ListBoxAction
  596.             Case 1
  597.                 SelForum=100
  598.                 Call AskForum
  599.                 Call ActionMenu
  600.                 Cur=1
  601.             EndCase
  602.             Case 2
  603.                 SelForum=17
  604.                 Call ActionMenu
  605.                 Cur=2
  606.             EndCase
  607.             Case 3
  608.                 SelForum=11
  609.                 Call ActionMenu
  610.                 Cur=3
  611.             EndCase
  612.             Case 4
  613.                 SelForum=12
  614.                 Call ActionMenu
  615.                 Cur=4
  616.             EndCase
  617.             Case 5
  618.                 SelForum=13
  619.                 Call ActionMenu
  620.                 Cur=5
  621.             EndCase
  622.             Case 6
  623.                 SelForum=14
  624.                 Call ActionMenu
  625.                 Cur=6
  626.             EndCase
  627.             Case 7
  628.                 SelForum=15
  629.                 Call ActionMenu
  630.                 Cur=7
  631.             EndCase
  632.             Case 8
  633.                 SelForum=16
  634.                 Call ActionMenu
  635.                 Cur=8
  636.             EndCase
  637.             Case 27
  638.                 VidRest VideoScrn
  639.                 ExitWhile
  640.             EndCase
  641.             Case 15104
  642.                 Call HelpCIS
  643.             EndCase
  644.         EndSwitch
  645.     Clear Lev2
  646.     VidRest 2
  647.     EndWhile
  648. EndProc
  649. ;
  650. ;**************************************************************************
  651. ;*                     Display Action Selection Menu                      *
  652. ;**************************************************************************
  653. ;
  654. Proc ActionMenu
  655.     Cur=1
  656.     While Forever
  657.         ListBoxIt1 = "1  Auto Log On To Forum       "
  658.         ListBoxIt2 = "2  Read New Messages          "
  659.         ListBoxIt3 = "3  Read New File Descriptions ..."
  660.         ListBoxIt4 = "4  Download a Forum File ...     "
  661.         NumListBoxIts = 4
  662.         Call ListBox With 10, 31, Lev3, Lev4 ; Display Main Menu Selections
  663.         VidSave 0
  664.         Switch ListBoxAction
  665.             Case 1
  666.                 Call AutoLog
  667.                 Cur=1
  668.             EndCase
  669.             Case 2
  670.                 Call SelLogName
  671.                 Call Mess
  672.                 Cur=2
  673.             EndCase
  674.             Case 3
  675.                 Call SelLogName
  676.                 Call FDeScript
  677.                 Cur=3
  678.             EndCase
  679.             Case 4
  680.                 Call SelLogName
  681.                 Call DownFile
  682.                 Cur=4
  683.             EndCase
  684.             Case 27
  685.                 VidRest VideoScrn
  686.                 ExitWhile
  687.             EndCase
  688.             Case 15104
  689.                 Call HelpAction
  690.             EndCase
  691.         EndSwitch
  692.         VidRest 0
  693.     EndWhile
  694. EndProc
  695. ;
  696. ;**************************************************************************
  697. ;*                 Log On To Forum and Switch to Manual                   *
  698. ;**************************************************************************
  699. ;
  700. Proc AutoLog
  701.     Call SelLogName
  702.     StrCmp LogSpec "Q"
  703.     If Success
  704.         Goto EndAuto
  705.     EndIf
  706.     HighSpeed=FALSE
  707.     Clear Lev2
  708.     Set StatLine on
  709.     Call DialNum
  710.     Call GoForum
  711.     Call Idle
  712.     HighSpeed=TRUE
  713. EndAuto:
  714. EndProc
  715. ;
  716. ;**************************************************************************
  717. ;*                 Allow User to change Capture Log Name                  *
  718. ;**************************************************************************
  719. ;
  720. Proc SelLogName
  721.     Integer Temp
  722.     BoxHeading="Change the default LOG file name (Y/N):    "
  723.     Call HeadBox With 13 Lev0
  724.     Locate 13 59
  725.     CurOn
  726.     KeyGet Temp
  727.     CurOff
  728.     If Temp==121
  729.         Temp=89
  730.     EndIf
  731.     If Temp==89
  732.     StrCpy FName ""
  733.     Call MakeName
  734.     StrCpy LogSpec FName
  735.     StrCpy FName ""
  736.     AtSay 13 19 Lev0 "Enter an Eight Character FileName:          "
  737.     AtGet 13 54 Lev0 8 LogSpec DEFAULT
  738.     Else
  739.         Strcpy LogSpec ""
  740.     EndIf
  741. EndProc
  742. ;
  743. ;**************************************************************************
  744. ;*                 Capture Selected Forum Messages                        *
  745. ;**************************************************************************
  746. ;
  747. Proc Mess
  748.     Call DialNum
  749.     Call GoForum
  750.     Call getmesg
  751.     TransMit "LOG^M"
  752.     Set ENQ Off
  753.     WaitFor "^M^JUser ID: "
  754.     Log Close
  755.     HANGUP
  756.     Call Idle
  757. EndProc
  758. ;
  759. ;**************************************************************************
  760. ;*                 Capture Forum File Descriptions                        *
  761. ;**************************************************************************
  762. ;
  763. Proc FDeScript
  764.     Call ScrnBack
  765.     Call GDays
  766.     StrCmp DLib "-1"
  767.     If Success
  768.         Return
  769.     EndIf
  770.     Call DialNum
  771.     Call GoForum
  772.     Call GetInfo
  773.     TransMit "LOG^M"
  774.     WaitFor "^M^JUser ID: "
  775.     Log Close
  776.     Set ENQ Off
  777.     HANGUP
  778.     Call Idle
  779. EndProc
  780. ;
  781. ;**************************************************************************
  782. ;*                 Idle Time While Auto Log Connected                     *
  783. ;**************************************************************************
  784. ;
  785. Proc Idle
  786.     Integer Tmp
  787.     Tmp=Cur
  788.     While Connected
  789.         If HitKey==16128
  790.             KFlush
  791.             Set keys On
  792.             CurOff
  793.             Action=-1
  794.             Call Forum
  795.             Call GoForum
  796.             Action=0
  797.             CurOn
  798.             IF BState==1
  799.                 Set BlockCur ON
  800.             Else
  801.                 Set BlockCur OFF
  802.             EndIf
  803.             Clear Lev2
  804.             Set keys Off
  805.         EndIf
  806.         If HitKey==16384
  807.             KFlush
  808.             Set keys On
  809.             CurOff
  810.             Action=-1
  811.             Call Forum2
  812.             Call GoForum
  813.             Action=0
  814.             CurOn
  815.             IF BState==1
  816.                 Set BlockCur ON
  817.             Else
  818.                 Set BlockCur OFF
  819.             EndIf
  820.             Clear Lev2
  821.             Set keys Off
  822.         EndIf
  823.     EndWhile
  824.     Pause 1
  825.     Set screen 25x80
  826.     Set Keys On                 ;disable key to host
  827.     CurOff
  828.     Cur=Tmp
  829.     SelForum=ForumSave
  830.     OnLine=FALSE
  831.     Set StatLine Off
  832.     LOG Close
  833.     Set RXData On
  834.     HangUp
  835. EndProc
  836. ;
  837. ;**************************************************************************
  838. ;*                 Download Selected Forum Files                          *
  839. ;**************************************************************************
  840. ;
  841. Proc DownFile
  842.     Integer Tmp
  843.     Call ScrnBack
  844.     Call GFile
  845.     strpeek Answer 0 Tmp
  846.     If Tmp==27
  847.          Return
  848.     EndIf
  849.     Set Enq CISb               ; turn on auto CIS downloads
  850.     StrCmp s2 ""
  851.     If Success
  852.          goto getout
  853.     EndIf
  854.     Call DialNum
  855.     Call GoForum
  856.     If SoftAct==0
  857.          Call DwnLd
  858.     Else
  859.          Call SoftDwnLd
  860.     EndIf
  861.     TransMit "LOG^M"
  862.     WaitFor "^M^JUser ID: "
  863.     Set ENQ Off
  864.     HANGUP
  865.     Call Idle
  866. Getout:
  867.     CurOff
  868. EndProc
  869. ;
  870. ;************************************************************************
  871. ;*                         Ask for File to Download                     *
  872. ;************************************************************************
  873. ;
  874. Proc GFile
  875.     Integer Tmp,temp
  876.     s1=""
  877.     s2=""
  878.     s3=""
  879.     s4=""
  880.     s5=""
  881.     s6=""
  882.     s7=""
  883.     s8=""
  884.     s9=""
  885.     s0=""
  886.     Count=1
  887.     Call ScrnBack
  888.     DLib="0"
  889.     BoxHeading = "Information On File(s) To Download"
  890.     Call HeadBox With  2, Lev0
  891.     LargeBox=8
  892.     If SoftAct==0
  893.          BoxHeading = "Entry - Lib # - Download File Name"
  894.     Else
  895.          BoxHeading = "Entry     -     Download File Name"
  896.     EndIf
  897.     Call HeadBox with  8, Lev1
  898.     LargeBox=2
  899.     AtSay 10 25 Lev1 "1 "
  900.     AtSay 11 25 Lev1 "2 "
  901.     AtSay 12 25 Lev1 "3 "
  902.     AtSay 13 25 Lev1 "4 "
  903.     AtSay 14 25 Lev1 "5 "
  904.     While Forever
  905.         Call AskName
  906.         StrCmp DFile ""
  907.         If Success
  908.             Count=6
  909.             Temp=78
  910.         EndIf
  911.         StrCmp Dlib ""
  912.         If Success
  913.             DLib="0"
  914.         EndIf
  915.         Tmp=Count+9
  916.         If Count < 6
  917.             If SoftAct==0
  918.                 AtSay Tmp 32 Lev1 DLib
  919.             EndIf
  920.             AtSay Tmp 43 Lev1 DFile
  921.         EndIf
  922.         Switch Count
  923.             Case 1
  924.                 StrCpy s1 DLib
  925.                 StrCpy s2 DFile
  926.             EndCase
  927.             Case 2
  928.                 StrCpy s3 DLib
  929.                 StrCpy s4 DFile
  930.             EndCase
  931.             Case 3
  932.                 StrCpy s5 DLib
  933.                 StrCpy s6 DFile
  934.             EndCase
  935.             Case 4
  936.                 StrCpy s7 DLib
  937.                 StrCpy s8 DFile
  938.             EndCase
  939.             Case 5
  940.                 StrCpy s9 DLib
  941.                 StrCpy s0 DFile
  942.             EndCase
  943.         EndSwitch
  944.         Inc Count
  945.         If Count<6
  946.             AtSay 20 19 Lev2 "Download Another File (Y/N):              "
  947.             Locate 20 48
  948.             CurOn
  949.             KeyGet Temp
  950.             CurOff
  951.             If Temp==110
  952.                 Temp=78
  953.             EndIf
  954.         EndIf
  955.         If Temp==78
  956.             AtSay 20 17 Lev2 "Do You Wish to Continue the Download (Y/N) :  "
  957.             Locate 20 62
  958.             CurOn
  959.             KeyGet Temp
  960.             If Temp==110
  961.                 Temp=78
  962.             EndIf
  963.             If Temp==78
  964.                 Strpoke Answer 0 27
  965.                 Return
  966.             Else
  967.                 Return
  968.             EndIf
  969.         EndIf
  970.     EndWhile
  971. EndProc
  972. ;
  973. ;***********************************************************************
  974. ;*                  Ask For Library and File Name                      *
  975. ;***********************************************************************
  976. ;
  977. Proc AskName
  978.      String Temp, Temp2
  979.      StrCmp DLib ""
  980.      If Success
  981.          DLIB="0"
  982.      EndIf
  983.      Temp2=DLib
  984.      BoxHeading =   "                                            "
  985.      Call HeadBox With  20, Lev2
  986.       StrCpy Temp "Enter Library Number <"
  987.      StrCat Temp DLib
  988.      StrCat Temp ">: "
  989.      AtSay 20 19 Lev2 Temp
  990.      If SoftAct==0
  991.          AtGet 20 46 Lev2 3 DLib
  992.          If NULL DLIB
  993.              DLIB=Temp2
  994.          EndIf
  995.      EndIf
  996.      AtSay 20 19 Lev2 "Enter Name Of File To Download:           "
  997.      AtGet 20 51 Lev2 13 DFile
  998. EndProc
  999. ;
  1000. ;***********************************************************************
  1001. ;*                  Ask For User Forum Name                            *
  1002. ;***********************************************************************
  1003. ;
  1004. Proc AskForum
  1005.      Integer Tmp
  1006.      String Temp
  1007.      StrCpy Temp UserForum
  1008.      VidSave 0
  1009.      LargeBox=5
  1010.      BoxHeading =   "The Default Forum Name is :                    "
  1011.      Call HeadBox With  12, Lev3
  1012.      LargeBox=2
  1013.      AtSay 12 46 Lev3 UserForum
  1014.      AtSay 15 17 Lev3 "Do You Wish to Enter a New Forum Name (Y/N):   "
  1015.      CurOn
  1016.      locate  15 62
  1017.      KeyGet Tmp
  1018.      CurOff
  1019.      If Tmp==121
  1020.          Tmp=89
  1021.      EndIf
  1022.      If Tmp==89
  1023.          AtSay 15 17 Lev3 "Enter The New CIS Forum Name:                    "
  1024.          AtGet 15 47 Lev3 14 UserForum
  1025.      EndIf
  1026.      If Null UserForum
  1027.          StrCpy UserForum Temp
  1028.      EndIf
  1029.      VidRest 0
  1030. EndProc
  1031. ;
  1032. ;************************************************************************
  1033. ;*                         Download a file Section                      *
  1034. ;************************************************************************
  1035. ;
  1036. Proc DwnLd
  1037.    N3=1
  1038.    Integer Tmp
  1039.    STRPEEK FCommand 0 Tmp
  1040.    If NOT Tmp==67
  1041.        WaitFor "<CR> !" 10
  1042.        TransMit "^M"
  1043.    Else
  1044.        WaitFor "Forum !" 10
  1045.    EndIf
  1046.    n1=1
  1047.    While forever
  1048.        Switch n1
  1049.            Case 1
  1050.                StrCpy DLib s1
  1051.                StrCpy DFile s2
  1052.            EndCase
  1053.            Case 2
  1054.                StrCpy DLib s3
  1055.                StrCpy DFile s4
  1056.            EndCase
  1057.            Case 3
  1058.                StrCpy DLib s5
  1059.                StrCpy DFile s6
  1060.            EndCase
  1061.            Case 4
  1062.                StrCpy DLib s7
  1063.                StrCpy DFile s8
  1064.            EndCase
  1065.            Case 5
  1066.                StrCpy DLib s9
  1067.                StrCpy DFile s0
  1068.            EndCase
  1069.        EndSwitch
  1070.        If NOT Tmp==67
  1071.            WaitFor "choice !"
  1072.        EndIf
  1073.        TransMit "LIB "
  1074.        If Null DLib
  1075.            TransMit "0^M"
  1076.        Else
  1077.            TransMit DLib
  1078.            TransMit "^M"
  1079.        EndIf
  1080.        If NOT Tmp==67
  1081.            WaitFor "choice !"
  1082.        Else
  1083.            WaitFor "!"
  1084.        EndIf
  1085.        TransMit "DOW "   ; download a file
  1086.        TransMit DFile
  1087.        TransMit " PROTO:B+^M"
  1088.        Pause 1
  1089.        WaitFor "computer:" 15
  1090.        If Not WaitFor
  1091.            Goto OneMore
  1092.        EndIf
  1093.        StrCpy FTemp DDnLdDir
  1094.        StrCat FTemp "\"
  1095.        StrCat  FTemp DFile
  1096.        TransMit FTemp      ; download file name with directory
  1097.        TransMit "^M"
  1098.        Pause 1
  1099.        WaitFor "!"  ForEver
  1100. OneMore:
  1101.        TransMit "^M"
  1102.        Inc N1
  1103.        If N1==Count
  1104.            Return
  1105.        EndIf
  1106.     EndWhile
  1107. EndProc
  1108. ;
  1109. ;************************************************************************
  1110. ;*                         Download a file Section                      *
  1111. ;************************************************************************
  1112. ;
  1113. Proc SoftDwnLd
  1114.        Integer Temp,Ftim=0,Ecount=0
  1115.        Temp=0
  1116.        N3=1
  1117.        N1=1
  1118.        While Forever
  1119. Again:
  1120.        If Not Ftim==0
  1121.            TransMit "go znt:softLib^M"
  1122.        Else
  1123.            Ftim=1
  1124.        EndIf
  1125.        WAITFOR "ZiffNet Library"
  1126.        Pause 1
  1127.        TRANSMIT "^C"
  1128.        WAITFOR "M for prior MENU"
  1129.        TRANSMIT "4^M"
  1130.        WAITFOR "ample, DR.COM) : "
  1131.        PAUSE 1
  1132.        Switch N1
  1133.            Case 1
  1134.                StrCpy DLib s1
  1135.                StrCpy DFile s2
  1136.            EndCase
  1137.            Case 2
  1138.                StrCpy DLib s3
  1139.                StrCpy DFile s4
  1140.            EndCase
  1141.            Case 3
  1142.                StrCpy DLib s5
  1143.                StrCpy DFile s6
  1144.            EndCase
  1145.            Case 4
  1146.                StrCpy DLib s7
  1147.                StrCpy DFile s8
  1148.            EndCase
  1149.            Case 5
  1150.                StrCpy DLib s9
  1151.                StrCpy DFile s0
  1152.            EndCase
  1153.        EndSwitch
  1154.        TransMit DFile
  1155.        TransMit "^M"
  1156.        WaitFor " file? (Y/N):" 10
  1157.        IF WAITFOR
  1158.            TRANSMIT "^C"
  1159.            WAITFOR "M for prior MENU"
  1160.            TRANSMIT "Y^M"
  1161.        Else
  1162.            TransMit "^C"
  1163.            WAITFOR "M for prior MENU"
  1164.            TransMit "T^M"
  1165.        If Not Ecount==1
  1166.                Inc Ecount
  1167.                Goto Again
  1168.            Else
  1169.                Ecount=0
  1170.                Goto Cycle
  1171.            EndIf
  1172.        EndIf
  1173.        WAITFOR "begin transfer" 15
  1174.        PAUSE 1
  1175.        TRANSMIT "^M"
  1176.        WAITFOR "Kermit"
  1177.        PAUSE 1
  1178.        TRANSMIT "5^M"
  1179.        PAUSE 2
  1180.        WAITFOR "!"
  1181.        PAUSE 1
  1182.        TransMit "^M"
  1183. Cycle:
  1184.        Inc N1
  1185.        If N1==Count
  1186.            Return
  1187.        EndIf
  1188.     EndWhile
  1189. EndProc
  1190. ;
  1191. ;**************************************************************************
  1192. ;*                          Goto Selected Forum                           *
  1193. ;**************************************************************************
  1194. ;
  1195. Proc GoForum
  1196.     Switch SelForum
  1197.         Case 1
  1198.             TransMit "go znt:editor^M"
  1199.         EndCase
  1200.         Case 2
  1201.             TransMit "go znt:progra^M"
  1202.         EndCase
  1203.         Case 3
  1204.             TransMit "go znt:utilfor^M"
  1205.         EndCase
  1206.         Case 4
  1207.             TransMit "go znt:afterh^M"
  1208.         EndCase
  1209.         Case 5
  1210.             TransMit "go znt:pccontact^M"
  1211.         EndCase
  1212.         Case 6
  1213.             TransMit "go znt:pcweek^M"
  1214.         EndCase
  1215.         Case 7
  1216.             TransMit "go znt:practice^M"
  1217.         EndCase
  1218.         Case 8
  1219.             TransMit "go znt:SoftLib^M"
  1220.         EndCase
  1221.         Case 9
  1222.             If FirstTime==False
  1223.                 TransMit "go cis:top^M"
  1224.             EndIf
  1225.         EndCase
  1226.         Case 10
  1227.             TransMit "go mail^M"
  1228.         EndCase
  1229.         Case 11
  1230.             TransMit "go cis:ibmhw^M"
  1231.         EndCase
  1232.         Case 12
  1233.             TransMit "go cis:ibmapp^M"
  1234.         EndCase
  1235.         Case 13
  1236.             TransMit "go cis:ibmsys^M"
  1237.         EndCase
  1238.         Case 14
  1239.             TransMit "go cis:ibmcom^M"
  1240.         EndCase
  1241.         Case 15
  1242.             TransMit "go cis:winadv^M"
  1243.         EndCase
  1244.         Case 16
  1245.             TransMit "go cis:msopsys^M"
  1246.         EndCase
  1247.         Case 17
  1248.             TransMit "go cis:dstorm^M"
  1249.         EndCase
  1250.         Case 18
  1251.             TransMit "go cis:top^M"
  1252.         EndCase
  1253.         Case 19
  1254.             TransMit "go bill^M"
  1255.         EndCase
  1256.         Case 20
  1257.             TransMit "go terminal^M"
  1258.         EndCase
  1259.         Case 21
  1260.             TransMit "go znt:zntff^M"
  1261.         EndCase
  1262.         Case 22
  1263.             TransMit "go znt:reviews^M"
  1264.         EndCase
  1265.         Case 24
  1266.             TransMit "go znt:COMPSHOPPER^M"
  1267.         EndCase
  1268.         Case 100
  1269.             TransMit "go cis:"
  1270.             TransMit UserForum
  1271.             TransMit "^M"
  1272.         EndCase
  1273.     EndSwitch
  1274.     SelForum=0
  1275.     FirstTime=False
  1276. EndProc
  1277. ;
  1278. ;************************************************************************
  1279. ;*                     Get the Forum Messages                           *
  1280. ;************************************************************************
  1281. ;
  1282. Proc getmesg
  1283.    Integer Tmp
  1284.    STRPEEK FCommand 0 Tmp
  1285.    If NOT Tmp==67
  1286.        WaitFor "<CR> !" 60
  1287.        TransMit "^M"
  1288.        WaitFor "choice !"
  1289.    Else
  1290.        WaitFor "Forum !"
  1291.    EndIf
  1292.    TransMit "MES;SEL;ALL;ALL^M"
  1293.    While forever
  1294.        If NOT Tmp==67
  1295.            WaitFor "CHOICES !" 10
  1296.        Else
  1297.            WaitFor "READ Action !" 10
  1298.        EndIf
  1299.        If WaitFor
  1300.            TransMit "^M"
  1301.        Else
  1302.            ExitWhile
  1303.        EndIf
  1304.    EndWhile
  1305. EndProc
  1306. ;
  1307. ;************************************************************************
  1308. ;*                   Get the Forum file descriptions                    *
  1309. ;************************************************************************
  1310. ;
  1311. Proc GetInfo
  1312.    Integer Tmp,Temp1=0
  1313.    STRPEEK FCommand 0 Tmp
  1314.    If NOT Tmp==67
  1315.        WaitFor "<CR> !" 10
  1316.        TransMit "^M"
  1317.        WaitFor "choice !"
  1318.    Else
  1319.        WaitFor "Forum !" 10
  1320.    EndIf
  1321.    While Temp1==0
  1322.        TransMit "LIB "
  1323.        TransMit DLib
  1324.        TransMit "^M"
  1325.        If NOT Tmp==67
  1326.            WaitFor "choice !"
  1327.        Else
  1328.            WaitFor "!"
  1329.        EndIf
  1330.        TransMit "BRO AGE:"
  1331.        TransMit DOld
  1332.        TransMit "^M"
  1333.        While forever
  1334.            If NOT Tmp==67
  1335.                WaitFor "CHOICES !" 5
  1336.            Else
  1337.                WaitFor "Disposition !" 5
  1338.            EndIf
  1339.            If WaitFor
  1340.                TransMit "^M"
  1341.            Else
  1342.                ExitWhile
  1343.            EndIf
  1344.        EndWhile
  1345.        If Null Dlib2
  1346.            Temp1=-1
  1347.            Goto EndDescrip
  1348.        EndIf
  1349.        StrCmp DLib DLib2
  1350.        If Success
  1351.            Temp1=-1
  1352.            Goto EndDescrip
  1353.        EndIf
  1354.        Call NextLib
  1355. EndDescrip:
  1356.    EndWhile
  1357. EndProc
  1358. ;
  1359. ;************************************************************************
  1360. ;*                      Ask for New Files Days Old                      *
  1361. ;************************************************************************
  1362. ;
  1363. Proc GDays
  1364.     Integer Tmp
  1365.     StrCpy Dlib ""
  1366.     StrCpy Dlib2 ""
  1367.     BoxHeading = "    Library Description Information    "
  1368.     Call HeadBox With 2, Lev0
  1369.     BoxHeading = "Capture More than One Library (Y/N) :  "
  1370.     Call HeadBox With 7, Lev0
  1371.     locate 7 59
  1372.     CurOn
  1373.     KeyGet Tmp
  1374.     If Tmp==110
  1375.         Tmp=78
  1376.     EndIf
  1377.     If Tmp==78
  1378.         BoxHeading = "    Enter the Library Number <0> :     "
  1379.         Call HeadBox With 7, Lev0
  1380.         AtGet 7 56 Lev0 2 DLib
  1381.     Else
  1382.         BoxHeading = "Enter the First Library Number <0> :   "
  1383.         Call HeadBox With 7, Lev0
  1384.         AtGet 7 58 Lev0 2 DLib
  1385.         BoxHeading = "Enter the Last Library Number <16> :   "
  1386.         Call HeadBox With 12, Lev0
  1387.         AtGet 12 58 Lev0 2 DLib2
  1388.         If Null DLib2
  1389.             StrCpy Dlib2 "16"
  1390.         EndIf
  1391.     EndIf
  1392.     If Null Dlib
  1393.         StrCpy Dlib "0"
  1394.     EndIf
  1395.     BoxHeading = "  Enter the Number of Days Old <1> :   "
  1396.     Call HeadBox With 17, Lev0
  1397.     AtGet 17 58 Lev0 3 DOld
  1398.     If Null DOld
  1399.         StrCpy DOld "1"
  1400.     EndIf
  1401.     BoxHeading = "    Do You Wish To Continue (Y/N) :    "
  1402.     Call HeadBox With 22, Lev0
  1403.     locate 22 57
  1404.     CurOn
  1405.     KeyGet Tmp
  1406.     CurOff
  1407.     If Tmp==110
  1408.         Tmp=78
  1409.     EndIf
  1410.     If Tmp==78
  1411.         StrCpy DLib "-1"
  1412.     EndIf
  1413. EndProc
  1414. ;
  1415. ;************************************************************************
  1416. ;*                   SEQUENCE THROUGH THE LIB NUMBERS 0-20              *
  1417. ;************************************************************************
  1418. ;
  1419. Proc NextLib
  1420.     StrCmp Dlib "0"
  1421.     If Success
  1422.         Dlib="1"
  1423.         Goto EndNL
  1424.     EndIf
  1425.     StrCmp Dlib "1"
  1426.     If Success
  1427.         Dlib="2"
  1428.         Goto EndNL
  1429.     EndIf
  1430.     StrCmp Dlib "2"
  1431.     If Success
  1432.         Dlib="3"
  1433.         Goto EndNL
  1434.     EndIf
  1435.     StrCmp Dlib "3"
  1436.     If Success
  1437.         Dlib="4"
  1438.         Goto EndNL
  1439.     EndIf
  1440.     StrCmp Dlib "4"
  1441.     If Success
  1442.         Dlib="5"
  1443.         Goto EndNL
  1444.     EndIf
  1445.     StrCmp Dlib "5"
  1446.     If Success
  1447.         Dlib="6"
  1448.         Goto EndNL
  1449.     EndIf
  1450.     StrCmp Dlib "6"
  1451.     If Success
  1452.         Dlib="7"
  1453.         Goto EndNL
  1454.     EndIf
  1455.     StrCmp Dlib "7"
  1456.     If Success
  1457.         Dlib="8"
  1458.         Goto EndNL
  1459.     EndIf
  1460.     StrCmp Dlib "8"
  1461.     If Success
  1462.         Dlib="9"
  1463.         Goto EndNL
  1464.     EndIf
  1465.     StrCmp Dlib "9"
  1466.     If Success
  1467.         Dlib="10"
  1468.         Goto EndNL
  1469.     EndIf
  1470.     StrCmp Dlib "10"
  1471.     If Success
  1472.         Dlib="11"
  1473.         Goto EndNL
  1474.     EndIf
  1475.     StrCmp Dlib "11"
  1476.     If Success
  1477.         Dlib="12"
  1478.         Goto EndNL
  1479.     EndIf
  1480.     StrCmp Dlib "12"
  1481.     If Success
  1482.         Dlib="13"
  1483.         Goto EndNL
  1484.     EndIf
  1485.     StrCmp Dlib "13"
  1486.     If Success
  1487.         Dlib="14"
  1488.         Goto EndNL
  1489.     EndIf
  1490.     StrCmp Dlib "14"
  1491.     If Success
  1492.         Dlib="15"
  1493.         Goto EndNL
  1494.     EndIf
  1495.     StrCmp Dlib "15"
  1496.     If Success
  1497.         Dlib="16"
  1498.         Goto EndNL
  1499.     EndIf
  1500.     StrCmp Dlib "16"
  1501.     If Success
  1502.         Dlib="17"
  1503.         Goto EndNL
  1504.     EndIf
  1505.     StrCmp Dlib "17"
  1506.     If Success
  1507.         Dlib="18"
  1508.         Goto EndNL
  1509.     EndIf
  1510.     StrCmp Dlib "18"
  1511.     If Success
  1512.         Dlib="19"
  1513.         Goto EndNL
  1514.     EndIf
  1515.     StrCmp Dlib "19"
  1516.     If Success
  1517.         Dlib="20"
  1518.         Goto EndNL
  1519.     EndIf
  1520.     StrCpy Dlib Dlib2
  1521. EndNL:
  1522. EndProc
  1523. ;
  1524. ;************************************************************************
  1525. ;*                   Dial the phone and logon to CIS                    *
  1526. ;************************************************************************
  1527. ;
  1528. Proc DialNum                  ; start of main procedure
  1529.    If BState==1
  1530.        Set BlockCur On
  1531.    Else
  1532.        Set BlockCur Off
  1533.    EndIf
  1534.    FirstTime=TRUE
  1535.    ForumSave=SelForum
  1536.    OnLine=TRUE
  1537.    Set RXData Off
  1538.    Clear Lev2                     ; clear screen
  1539.    Set Keys Off               ; allow keyboard entries to be sent to host
  1540.    Switch ScreenMode
  1541.        Case 2
  1542.            Set Screen Extrax80
  1543.        EndCase
  1544.        Case 3
  1545.            Set Screen UserMode
  1546.        EndCase
  1547.        Case 4
  1548.            Set Screen ExtraxUser
  1549.        EndCase
  1550.        Default
  1551.            Set Screen 25X80
  1552.        EndCase
  1553.    EndSwitch
  1554.    CurOn
  1555.    Locate 0 0                 ; locate Cursor at 0,0
  1556.    Box 0 0 4 29 14            ; draw box
  1557.    AtSay 2 2 14 "Logging onto COMPUSERVE..."  ; put Message in box
  1558.    Locate 6 0                 ; Cursor to row 6
  1559.    If Not HighSpeed           ; if not downloading files use CIS_Number
  1560.       Dial CIS_Number         ; use dialing directory entry for CIS number
  1561.    Else
  1562.       Dial CIS_HighSpD        ; Else Use CIS_HighSpD entry for fast dwnlods
  1563.    EndIf
  1564.    Set DataBits 7
  1565.    Set Parity Even
  1566.    Pause 3                    ; wait three seconds
  1567.    TransMit "^C"              ; TransMit CTRL-C
  1568.    WaitFor "User ID:"         ; wait for "User ID:" to come in COM port
  1569.    TransMit ID                ; sEnd your ID
  1570.    TransMit "^M"              ; send carriage Return
  1571.    WaitFor "Password:"        ; wait for "PassWord:" to come in COM port
  1572.    TransMit Password          ; send PassWord
  1573.    TransMit "^M"              ; send carriage Return
  1574.    Call MyLog
  1575.    WaitFor "!" 10             ; wait for CompuServe prompt
  1576.    If Enquire==1
  1577.        Set Enq CISb           ; turn on auto CIS downloads
  1578.    Endif
  1579. EndProc
  1580. ;
  1581. ;************************************************************************
  1582. ;*                  ZiffNet System Configuration Menu                   *
  1583. ;************************************************************************
  1584. ;
  1585. Proc ConfigMenu
  1586.     Call ReadFile
  1587.     If Null OnLineScrn
  1588.         StrCpy OnLineScrn "Extrax80"
  1589.     EndIf
  1590.     If Null FCommand
  1591.         StrCpy FCommand "Menu"
  1592.     EndIf
  1593.     If Null CRTMode
  1594.         StrCpy CRTMode "B&W"
  1595.     EndIf
  1596.     If Null ScrnBlnk
  1597.         StrCpy ScrnBlnk "0"
  1598.     EndIf
  1599.     If Null RunCommand
  1600.         StrCpy RunCommand "PCEDIT /N"
  1601.     EndIf
  1602.     CurOn
  1603.     XCurOn=TRUE
  1604. ConfigStart:
  1605.         Call ScrnBack
  1606.         LargeBox=16
  1607.         BoxHeading = \
  1608.      "            ZiffNet ASPECT Script File Configuration Menu           "
  1609.         Call HeadBox With 2, Lev0
  1610.         LargeBox=2
  1611.     While forever
  1612.         Call DisSettings
  1613.         BoxHeading = \
  1614.      "F1=Help, ESC=Abort, Enter Your Selection:                           "
  1615.         Call HeadBox With 21, Lev0
  1616.         locate 21 48
  1617.         Call BlankMe
  1618.         KeyGet InKey
  1619.         If InKey==99
  1620.             InKey=67
  1621.         EndIf
  1622.         If InKey==109
  1623.             InKey=77
  1624.         EndIf
  1625.         If InKey==115
  1626.             InKey=83
  1627.         EndIf
  1628.         Switch InKey
  1629.             ;
  1630.             ; Escape, Do Not Save
  1631.             ;
  1632.             Case 27
  1633.                 Call ReadFile
  1634.                 ExitWhile
  1635.             EndCase
  1636.             ;
  1637.             ; Low Speed Dial Number "1"
  1638.             ;
  1639.             Case 49
  1640.                 Klen=3
  1641.                 Call GetInput
  1642.                 If NOT NULL IValue1
  1643.                     StrCpy CIS_Number IValue1
  1644.                 EndIf
  1645.             EndCase
  1646.             ;
  1647.             ; High Speed Dial Number "2"
  1648.             ;
  1649.             Case 50
  1650.                 Klen=3
  1651.                 Call GetInput
  1652.                 If NOT NULL IValue1
  1653.                     StrCpy CIS_HighSpd IValue1
  1654.                 EndIf
  1655.             EndCase
  1656.             ;
  1657.             ; CompuServe ID Number "3"
  1658.             ;
  1659.             Case 51
  1660.                 Klen=12
  1661.                 Call GetInput
  1662.                 If NOT NULL IValue1
  1663.                     StrCpy id IValue1
  1664.                 EndIf
  1665.             EndCase
  1666.             ;
  1667.             ; CompuServe Password "4"
  1668.             ;
  1669.             Case 52
  1670.                 Klen=25
  1671.                 AtSay  7 40 Lev0 "                         "
  1672.                 AtSay  7 40 Lev0 PassWord
  1673.                 Call GetInput
  1674.                 If NOT NULL IValue1
  1675.                     StrCpy PassWord IValue1
  1676.                 EndIf
  1677.             EndCase
  1678.             ;
  1679.             ; Default Log File Directory "5"
  1680.             ;
  1681.             Case 53
  1682.                 Klen=37
  1683.                 Call GetInput
  1684.                 If NOT NULL IValue1
  1685.                     StrCpy YourDir IValue1
  1686.                     StrCat IValue1 "\NUL"
  1687.                     IsFile IValue1
  1688.                     If Not Success
  1689.                         MkDir YourDir
  1690.                     EndIf
  1691.                 EndIf
  1692.             EndCase
  1693.             ;
  1694.             ; Ascii File Viewer Name "6"
  1695.             ;
  1696.             Case 54
  1697.                 Klen=37
  1698.                 Call GetInput
  1699.                 If NOT NULL IValue1
  1700.                     StrCpy RunCommand IValue1
  1701.                 EndIf
  1702.             EndCase
  1703.             ;
  1704.             ; Default Download Directory "7"
  1705.             ;
  1706.             Case 55
  1707.                 Klen=37
  1708.                 Call GetInput
  1709.                 If NOT NULL IValue1
  1710.                     StrCpy DDnLdDir IValue1
  1711.                     StrCat IValue1 "\NUL"
  1712.                     IsFile IValue1
  1713.                     If Not Success
  1714.                         MkDir DDnLdDir
  1715.                     EndIf
  1716.                 EndIf
  1717.             EndCase
  1718.             ;
  1719.             ; Default Forum Mode "8"
  1720.             ;
  1721.             Case 56
  1722.             StrCmp FCommand "MENU"
  1723.             If Success
  1724.                 FCommand="COMMAND"
  1725.             Else
  1726.                 FCommand="MENU"
  1727.             EndIf
  1728.             EndCase
  1729.             ;
  1730.             ; Screen Blanking Interval "9"
  1731.             ;
  1732.             Case 57
  1733.                 Klen=4
  1734.                 Call GetInput
  1735.                 If NOT NULL IValue1
  1736.                     StrCpy ScrnBlnk IValue1
  1737.                 EndIf
  1738.             Call SetBlank
  1739.             EndCase
  1740.             ;
  1741.             ; Display Color "C"
  1742.             ;
  1743.             Case 67
  1744.             StrCmp CRTMode "COLOR"
  1745.             If Success
  1746.                 StrCpy CRTMode "B&W"
  1747.             Else
  1748.                 StrCpy CRTMode "COLOR"
  1749.             EndIf
  1750.             Call SetColors
  1751.             Goto ConfigStart
  1752.             EndCase
  1753.             ;
  1754.             ; OnLine Screen Display Mode "M"
  1755.             ;
  1756.             Case 77
  1757.             StrCmp OnLineScrn "25X80"
  1758.             If Success
  1759.                 StrCpy OnLineScrn "ExtraxUser"
  1760.                 Goto ModeDone
  1761.             EndIf
  1762.             StrCmp OnLineScrn "Extrax80"
  1763.             If Success
  1764.                 StrCpy OnLineScrn "25X80"
  1765.                 Goto ModeDone
  1766.             EndIf
  1767.             StrCmp OnLineScrn "UserMode"
  1768.             If Success
  1769.                 StrCpy OnLineScrn "Extrax80"
  1770.                 Goto ModeDone
  1771.             EndIf
  1772.             StrCmp OnLineScrn "ExtraxUser"
  1773.             If Success
  1774.                 StrCpy OnLineScrn "UserMode"
  1775.                 Goto ModeDone
  1776.             EndIf
  1777. ModeDone:
  1778.             Call ScrnOnLine
  1779.             EndCase
  1780.             ;
  1781.             ; Save Configuration "S"
  1782.             ;
  1783.             Case 83
  1784.                 Call WriteFile
  1785.                 ExitWhile
  1786.             EndCase
  1787.             ;
  1788.             ; Help Display "F1"
  1789.             ;
  1790.             Case 15104
  1791.                 VidSave 2
  1792.                 CurOff
  1793.                 Call HelpConfig
  1794.                 CurOn
  1795.                 VidRest 2
  1796.             EndCase
  1797.         EndSwitch
  1798.     EndWhile
  1799.     CurOff
  1800.     XCurOn=FALSE
  1801. EndProc
  1802. ;
  1803. ;************************************************************************
  1804. ;*                  Input New Configuration Information                 *
  1805. ;************************************************************************
  1806. ;
  1807. Proc GetInput
  1808.     String Temp,Tmp
  1809.     Key2Ascii InKey  Tmp
  1810.     StrCpy Temp "New Value For <"
  1811.     StrCat Temp Tmp
  1812.     StrCat Temp ">: "
  1813.     AtSay 21 6 Lev0 "                                                        "
  1814.     AtSay 21 6 Lev0 Temp
  1815.     IValue1 = ""
  1816.     AtGet 21 25 Lev0 Klen IValue1
  1817.     StrCmp Tmp "5"
  1818.     If Success
  1819.         Call BackFix
  1820.     EndIf
  1821.     StrCmp Tmp "7"
  1822.     If Success
  1823.         Call BackFix
  1824.     EndIf
  1825.     STRUPR IValue1
  1826. EndProc
  1827. ;
  1828. ;************************************************************************
  1829. ;*    Remove Ending backslash of directory names entries If present     *
  1830. ;************************************************************************
  1831. ;
  1832. Proc BackFix
  1833.     Integer Temp1, Temp2
  1834.     Strlen IValue1 Temp1
  1835.     Temp1=Temp1-1
  1836.     Strpeek IValue1 Temp1 Temp2
  1837.     If Temp2==92
  1838.         StrCpy IValue1 IValue1 Temp1
  1839.     EndIf
  1840. EndProc
  1841. ;
  1842. ;************************************************************************
  1843. ;*                  Configuration Menu Data Fields                      *
  1844. ;************************************************************************
  1845. ;
  1846. Proc DisSettingS
  1847.     Integer Tmp,Temp
  1848.     String STemp
  1849.     Tmp=Lev6
  1850.     AtSay  4 06 Tmp \
  1851.    "1) Dialing Directory Number (LO):                                      "
  1852.     AtSay  4 40 Lev0 CIS_Number
  1853.     AtSay  5 06 Tmp \
  1854.    "2) Dialing Directory Number (HI):                                      "
  1855.     AtSay  5 40 Lev0 CIS_HighSpD
  1856.     AtSay  6 06 Tmp \
  1857.    "3) Your CompuServe ID Number ->:                                       "
  1858.     AtSay  6 40 Lev0 ID
  1859.     AtSay  7 06 Tmp \
  1860.    "4) Your CompuServe Password --->:                                      "
  1861.     AtSay  7 40 Lev0 "                         "
  1862.     StrLen PassWord Temp
  1863.     Inc Temp
  1864.     StrSet STemp 42 Temp
  1865.     Dec Temp
  1866.     StrPoke STemp Temp 0
  1867.     AtSay  7 40 Lev0 STemp
  1868.     AtSay  8 06 Tmp \
  1869.    "5) Log File Directory --------->:                                      "
  1870.     AtSay  8 40 Lev0 YourDir
  1871.     AtSay  9 06 Tmp \
  1872.    "6) ASCII File Editor ---------->:                                      "
  1873.     AtSay  9 40 Lev0 RunCommand
  1874.     AtSay 10 06 Tmp \
  1875.    "7) File Download Directory ---->:                                      "
  1876.     AtSay 10 40 Lev0 DDnLdDir
  1877.     AtSay 11 06 Tmp \
  1878.    "8) Forum Mode (Menu/Command) -->:                                      "
  1879.     AtSay 11 40 Lev0 FCommand
  1880.     AtSay 12 06 Tmp \
  1881.    "9) Screen Blanking Delay (sec) >:                                      "
  1882.     AtSay 12 40 Lev0 ScrnBlnk
  1883.     AtSay 13 06 Tmp \
  1884.    "C) Display Color Mode --------->:                                      "
  1885.     AtSay 13 40 Lev0 CRTMode
  1886.     AtSay 14 06 Tmp \
  1887.    "M) Online Display Line Size --->:                                      "
  1888.     AtSay 14 40 Lev0 OnLineScrn
  1889.     AtSay 16 06 Tmp "S) Save Configuration And Exit Menu"
  1890. EndProc
  1891. ;
  1892. ;************************************************************************
  1893. ;*                 Write Configuration Data From File                   *
  1894. ;************************************************************************
  1895. ;
  1896. Proc WriteFile
  1897.     String Tmp1,Tmp2,Tmp3,Tmp4,Tmp5,Tmp6,Tmp7,Tmp8,Tmp9,Tmp0,TmpA,TmpB,TmpC
  1898.     GetEnv "ZIFFPLUS" TmpB
  1899.     GetEnv "PCPLUS" TmpC
  1900.     IsFile "ZIFF.CFG"
  1901.     If Success
  1902.         Fopen 1 "ZIFF.CFG" "WT"
  1903.     Else
  1904.         If Null TmpB
  1905.             If Null TmpC
  1906.                 Fopen 1 "ZIFF.CFG" "WT"
  1907.             Else
  1908.                 StrCat TmpC  "\"
  1909.                 StrCat TmpC  "ZIFF.CFG"
  1910.                 FOPEN 1 TmpC "WT"
  1911.             EndIf
  1912.         Else
  1913.             StrCat TmpB  "\"
  1914.             StrCat TmpB  "ZIFF.CFG"
  1915.             FOPEN 1 TmpB "WT"
  1916.         EndIf
  1917.     Endif
  1918.     StrCpy Tmp1 CIS_Number
  1919.     StrCat Tmp1 "%c"
  1920.     FStrFmt 1 Tmp1 10
  1921.     StrCpy Tmp2 CIS_HighSpD
  1922.     StrCat Tmp2 "%c"
  1923.     FStrFmt 1 Tmp2 10
  1924.     StrCpy Tmp3 ID
  1925.     StrCat Tmp3 "%c"
  1926.     FStrFmt 1 Tmp3 10
  1927.     StrCpy Tmp4 PassWord
  1928.     StrCat Tmp4 "%c"
  1929.     FStrFmt 1 Tmp4 10
  1930.     StrCpy Tmp5 YourDir
  1931.     StrCat Tmp5 "%c"
  1932.     FStrFmt 1 Tmp5 10
  1933.     StrCpy Tmp6 RunCommand
  1934.     StrCat Tmp6 "%c"
  1935.     FStrFmt 1 Tmp6 10
  1936.     StrCpy Tmp7 DDnLdDir
  1937.     StrCat Tmp7 "%c"
  1938.     FStrFmt 1 Tmp7 10
  1939.     StrCpy Tmp8 FCommand
  1940.     StrCat Tmp8 "%c"
  1941.     FStrFmt 1 Tmp8 10
  1942.     StrCpy Tmp9 ScrnBlnk
  1943.     StrCat Tmp9 "%c"
  1944.     FStrFmt 1 Tmp9 10
  1945.     StrCpy Tmp0 CRTMode
  1946.     StrCat Tmp0 "%c"
  1947.     FStrFmt 1 Tmp0 10
  1948.     StrCpy TmpA OnLineScrn
  1949.     StrCat TmpA "%c"
  1950.     FStrFmt 1 TmpA 10
  1951.     FStrFmt 1 "%c" 26
  1952.     FClose 1
  1953. EndProc
  1954. ;
  1955. ;************************************************************************
  1956. ;*                  Read Configuration Data From File                   *
  1957. ;************************************************************************
  1958. ;
  1959. Proc ReadFile
  1960.     Integer Cfg
  1961.     String TmpB,TmpC
  1962.     Set FGETS_CRLF Off
  1963.     GetEnv "ZIFFPLUS" TmpB
  1964.     GetEnv "PCPLUS" TmpC
  1965.     IsFile "ZIFF.CFG"
  1966.     If Success
  1967.         Fopen 1 "ZIFF.CFG" "RT"
  1968.     Else
  1969.         If Null TmpB
  1970.             If Null TmpC
  1971.                 Fopen 1 "ZIFF.CFG" "RT"
  1972.             Else
  1973.                 StrCat TmpC  "\"
  1974.                 StrCat TmpC  "ZIFF.CFG"
  1975.                 FOPEN 1 TmpC "RT"
  1976.             EndIf
  1977.         Else
  1978.             StrCat TmpB  "\"
  1979.             StrCat TmpB  "ZIFF.CFG"
  1980.             FOPEN 1 TmpB "RT"
  1981.         EndIf
  1982.     EndIf
  1983.     If Success
  1984.         While NOT EOF 1
  1985.             FOR cfg=1 UPTO 11
  1986.                 FGETS 1 IValue1
  1987.                 If NOT Success
  1988.                     ExitWhile
  1989.                 EndIf
  1990.                 Switch Cfg
  1991.                      Case 1
  1992.                          StrCpy CIS_Number IValue1
  1993.                      EndCase
  1994.                      Case 2
  1995.                          StrCpy CIS_HighSpD IValue1
  1996.                      EndCase
  1997.                      Case 3
  1998.                          StrCpy ID IValue1
  1999.                      EndCase
  2000.                      Case 4
  2001.                          StrCpy PassWord IValue1
  2002.                      EndCase
  2003.                      Case 5
  2004.                          StrCpy YourDir IValue1
  2005.                      EndCase
  2006.                      Case 6
  2007.                         StrCpy RunCommand IValue1
  2008.                      EndCase
  2009.                      Case 7
  2010.                          StrCpy DDnLdDir IValue1
  2011.                      EndCase
  2012.                      Case 8
  2013.                          StrCpy FCommand IValue1
  2014.                      EndCase
  2015.                      Case 9
  2016.                          StrCpy ScrnBlnk IValue1
  2017.                      EndCase
  2018.                      Case 10
  2019.                          StrCpy CRTMode IValue1
  2020.                      EndCase
  2021.                      Case 11
  2022.                          StrCpy OnLineScrn IValue1
  2023.                      EndCase
  2024.                 EndSwitch
  2025.             EndFOR
  2026.         ExitWhile
  2027.         EndWhile
  2028.         FCLOSE 1
  2029.         Config=TRUE
  2030.     Else
  2031.         Config=FALSE
  2032.     EndIf
  2033. EndProc
  2034. ;
  2035. ;************************************************************************
  2036. ;*                   OPEN USER LOG FILE - AutoLog                       *
  2037. ;************************************************************************
  2038. ;
  2039. Proc MyLog
  2040.    String Tmp1
  2041.    StrCpy FName YourDir
  2042.    StrCat FName "\"
  2043.    StrCmp LogSpec ""
  2044.    If Success
  2045.        Call MakeName
  2046.    Else
  2047.        StrCat FName LogSpec 8
  2048.    EndIf
  2049.    StrCat FName ".LOG" 4
  2050.    IsFile FName
  2051.    If Success
  2052.        FOpen 1 Fname "AT"
  2053.    Else
  2054.        FOpen 1 Fname "WT"
  2055.    EndIf
  2056.    FStrFmt 1 " %c" 10
  2057.    StrCpy Tmp1 ">>>> ZiffPlus Capture Log File Opened On "
  2058.    StrCat Tmp1 $Date
  2059.    StrCat Tmp1 " At "
  2060.    StrCat Tmp1 $Time0
  2061.    StrCat Tmp1 " <<<<"
  2062.    StrCat Tmp1 "%c"
  2063.    FStrFmt 1 Tmp1 10
  2064.    StrCpy Tmp1 \
  2065.    ">>>> Procomm Plus 2 Aspect Script File For ZiffNet Forum Access <<<<"
  2066.    StrCat Tmp1 " %c"
  2067.    FStrFmt 1 Tmp1 10
  2068.    FStrFmt 1 "%c" 10
  2069.    FClose 1
  2070.    Log Open FName
  2071.    StrCpy LogSpec ""
  2072. EndProc
  2073. ;
  2074. ;************************************************************************
  2075. ;*                   Create Default Log File Name                       *
  2076. ;************************************************************************
  2077. ;
  2078. Proc MakeName
  2079.    Date TheDate
  2080.    SubStr Month TheDate 0 2
  2081.    SubStr Day TheDate 3 2
  2082.    StrCat FName "ZIFF"
  2083.    StrCat FName Month 2
  2084.    StrCat FName Day 2
  2085. EndProc
  2086. ;
  2087. ;**************************************************************************
  2088. ;*                 Display Information Boxes                              *
  2089. ;**************************************************************************
  2090. ;
  2091. Proc HeadBox
  2092.     IntParm Row1, Attrib1
  2093.     Integer I, Row2, Trow, Len, Centstr, Col2, Col1, Tc
  2094.     Strlen BoxHeading Len
  2095.     CentStr = 40-(Len/2)
  2096.     Col1=Centstr-1
  2097.     Col2=Col1+Len+5
  2098.     Row2 = Row1 + LargeBox
  2099.      ;
  2100.      ; Make Shadow On Side
  2101.      ;
  2102.     For I = Row1 Upto Row2
  2103.         Putvattr I Col2 8
  2104.     Endfor
  2105.     Col2 = Col2 - 1
  2106.     For I = Row1 Upto Row2
  2107.         Putvattr I Col2 8
  2108.     Endfor
  2109.      ;
  2110.      ; Make Shadow On Bottom
  2111.      ;
  2112.     For I = Col1 Upto Col2
  2113.         Putvattr Row2 I 8
  2114.     Endfor
  2115.     Row1 = Row1 - 1                     ; Readjust for list box
  2116.     Col1 = Col1 - 2
  2117.     Row2 = Row2 - 1
  2118.     Col2 = Col2 - 1
  2119.     Tc=Attrib1/16
  2120.     Tc=(Tc * 16)+Tc
  2121.     Box Row1, Col1, Row2, Col2, Tc ; Put box
  2122.     Trow = Row1 + 1
  2123.     AtSay Trow Centstr Attrib1 Boxheading
  2124. EndProc
  2125. ;
  2126. ;**************************************************************************
  2127. ;*                          Setup Program Colors                          *
  2128. ;**************************************************************************
  2129. ;
  2130. Proc SetColors
  2131.     StrCmp CRTMode "COLOR"
  2132.     If Success
  2133.         Lev0=CLev0
  2134.         Lev1=CLev1
  2135.         Lev2=CLev2
  2136.         Lev3=CLev3
  2137.         Lev4=CLev4
  2138.         Lev5=CLev5
  2139.         Lev6=CLev6
  2140.     Else
  2141.         Lev0=BLev0
  2142.         Lev1=BLev1
  2143.         Lev2=BLev2
  2144.         Lev3=BLev3
  2145.         Lev4=BLev4
  2146.         Lev5=BLev5
  2147.         Lev6=BLev6
  2148.     EndIf
  2149. EndProc
  2150. ;
  2151. ;**************************************************************************
  2152. ;*                   Determine Screen Blanking Value                      *
  2153. ;**************************************************************************
  2154. ;
  2155. Proc SetBlank
  2156.     ATOI ScrnBlnk ScreenBlnk
  2157.     If ScreenBlnk < 0
  2158.         ScreenBlnk=0
  2159.     EndIf
  2160. EndProc
  2161. ;
  2162. ;**************************************************************************
  2163. ;*                   Setup OnLine Screen Size                             *
  2164. ;**************************************************************************
  2165. ;
  2166. Proc ScrnOnLine
  2167.     StrCmp OnLineScrn "25X80"
  2168.     If Success
  2169.         ScreenMode=1
  2170.     EndIf
  2171.     StrCmp OnLineScrn "Extrax80"
  2172.     If Success
  2173.         ScreenMode=2
  2174.     EndIf
  2175.     StrCmp OnLineScrn "UserMode"
  2176.     If Success
  2177.         ScreenMode=3
  2178.     EndIf
  2179.     StrCmp OnLineScrn "ExtraxUser"
  2180.     If Success
  2181.         ScreenMode=4
  2182.     EndIf
  2183. EndProc
  2184. ;
  2185. ;**************************************************************************
  2186. ;*                   Fill Screen Back Ground                              *
  2187. ;**************************************************************************
  2188. ;
  2189. Proc ScrnBack
  2190.     Clear Lev3
  2191.     For  X=0 Upto 24
  2192.         AtSay X  0 Lev5 "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  2193.         AtSay X 40 Lev5 "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  2194.     Endfor
  2195. EndProc
  2196. ;
  2197. ;************************************************************************
  2198. ;*                  Screen Blanking program                             *
  2199. ;************************************************************************
  2200. ;
  2201. PROC BlankMe
  2202.  Integer blank_time = -1, screen_saved = FALSE
  2203.  String  time_str, blink_str = " "
  2204.     BlankDone = FALSE
  2205.     WHILE NOT ( HitKey || CONNECTED )
  2206.        IF blank_time != ScreenBlnk
  2207.           IF NOT OpenScrn
  2208.              AtSay  0 69 Lev5 $time1
  2209.              AtSay  0 03 Lev5 $date
  2210.           ENDIF
  2211.           IF ScreenBlnk > 0         ;Disable the screen blanker
  2212.              INC blank_time         ; if value is zero
  2213.           ENDIF
  2214.        ELSE
  2215.           IF NOT screen_saved
  2216.              IF VidLast == TRUE
  2217.                 VidSave 0
  2218.              ENDIF
  2219.              screen_saved = TRUE
  2220.              Scroll 0 0 0 24 79 0   ;Scroll with color attrib
  2221.           ENDIF                     ; zero hides the cursor
  2222.           StrCmp blink_str " "
  2223.           IF SUCCESS
  2224.              blink_str = ""
  2225.           ELSE
  2226.              blink_str = " "
  2227.           ENDIF
  2228.           AtSay 24 79 15 blink_str
  2229.        ENDIF
  2230.        time_str = $time1
  2231.        StrCmp time_str $time1
  2232.        WHILE ( SUCCESS ) && ( HitKey == 0 ) ;Wait 1 second or
  2233.           StrCmp time_str $time1            ; until a key is pressed
  2234.        ENDWHILE
  2235.        IF ( screen_saved ) && ( HitKey  )
  2236.            KeyGet blank_time                ;Remove key stroke
  2237.            blank_time = -1                  ;Reset timer
  2238.            screen_saved = FALSE
  2239.            BlankDone = TRUE
  2240.            IF VidLast == TRUE
  2241.               VidRest 0
  2242.            ELSE
  2243.               Return                        ;The impossible fix
  2244.            ENDIF
  2245.        ENDIF
  2246.     ENDWHILE
  2247. ENDPROC ;  ---------   BlankMe   -----------
  2248. ;
  2249. ;--------------------------------------------------------
  2250. ; ListBox Aspect Script for ProComm Plus 2.0
  2251. ; Version 1.0
  2252. ; Rob Dunder 1/24/91
  2253. ; Compuserve 76334,2505
  2254. ;--------------------------------------------------------
  2255. ;------------------------------------------------------------------------
  2256. ; The rest of this file contains the ListBox code
  2257. ; There are two routines:  ListBox and ListBoxGetstr
  2258. ;
  2259. ; usage:  Call ListBox with row, col, normal attrib, highlight attrib
  2260. ; with GLOBAL variables:
  2261. ;  numListBoxIt = number of items in list box (Integer)
  2262. ;  ListBoxIt1 --- ListBoxIt9 = text for item number ? (String)
  2263. ;  ListBoxAction = Return value from ListBox (Integer)
  2264. ;------------------------------------------------------------------------
  2265. ;
  2266. Proc ListBox
  2267.     IntParm row1, col1, attrib1, attrib2
  2268.     Integer len, maxlen, row2, col2, row, col, i, key, TC
  2269.     String Tempstr
  2270.     strlen ListBoxIt1 maxlen
  2271.     for i = 1 UPTO numListBoxIts
  2272.         Call ListBoxGetstr with i, &Tempstr
  2273.         strlen Tempstr len
  2274.         If len > maxlen
  2275.             maxlen = len
  2276.         EndIf
  2277.     Endfor
  2278.     row1 = row1 + 1                     ; Adjust for shadow
  2279.     col1 = col1 + 2
  2280.     row2 = row1 + numListBoxIts + 1
  2281.     col2 = col1 + maxlen + 1
  2282.     for i = row1 upto row2
  2283.         putvattr i col2 8
  2284.     Endfor
  2285.     col2 = col2 - 1
  2286.     for i = row1 upto row2
  2287.         putvattr i col2 8
  2288.     Endfor
  2289.     for i = col1 upto col2
  2290.         putvattr row2 i 8
  2291.     Endfor
  2292.     row1 = row1 - 1                     ; Readjust for list box
  2293.     col1 = col1 - 2
  2294.     row2 = row2 - 1
  2295.     col2 = col2 - 1
  2296.     TC=ATTRIB1/16
  2297.     TC=(TC * 16)+TC
  2298.     box row1, col1, row2, col2, TC ; Put box
  2299.     for i = 1 UPTO numListBoxIts
  2300.         row = row1+ i
  2301.         col = col1 + 1
  2302.         Call ListBoxGetstr with i, &Tempstr
  2303.         AtSay row col attrib1 Tempstr
  2304.     Endfor
  2305.     key = 0
  2306.     While key != 13
  2307.         Call ListBoxGetstr with Cur, &Tempstr
  2308.         row = Cur + row1
  2309.         AtSay row col attrib2 Tempstr
  2310.         ListBoxAction = Cur
  2311.         Call BlankMe
  2312.         KeyGet key
  2313.         kflush
  2314.         CurOff
  2315.         Switch key
  2316.            Case 27                        ; <ESC> pressed
  2317.                ListBoxAction = 27
  2318.                ExitWhile
  2319.             EndCase
  2320.             Case 17408                    ; F10 Key Pressed
  2321.            If MMEM==False
  2322.                    ListBoxAction = 27
  2323.                Else
  2324.                    ListboxAction = NumListBoxIt
  2325.                    Cur = NumListBoxIt
  2326.                    AtSay row col attrib1 Tempstr
  2327.                    Call ListBoxGetstr with Cur, &Tempstr
  2328.                    row = Cur + row1
  2329.                    AtSay row col attrib2 Tempstr
  2330.             Key = 13
  2331.            EndIf
  2332.            ExitWhile
  2333.             EndCase
  2334.             Case 15104                    ; F1 Key Pressed
  2335.                key=13
  2336.                ListBoxAction = 15104
  2337.                ExitWhile
  2338.             EndCase
  2339.             Case 19424                    ; Seperate <left arrow> pressed
  2340.                ListBoxAction = 27
  2341.                ExitWhile
  2342.             EndCase
  2343.             Case 19200                    ; Keypad <left arrow> pressed
  2344.                ListBoxAction = 27
  2345.                ExitWhile
  2346.             EndCase
  2347.             Case 18656                    ; Seperate <up arrow> pressed
  2348.                 AtSay row col attrib1 Tempstr
  2349.                 Cur = Cur - 1
  2350.                 If Cur < 1
  2351.                     Cur = numListBoxIt
  2352.                 EndIf
  2353.             EndCase
  2354.             Case 18432                    ; Keypad <up arrow> pressed
  2355.                 AtSay row col attrib1 Tempstr
  2356.                 Cur = Cur - 1
  2357.                 If Cur < 1
  2358.                     Cur = numListBoxIt
  2359.                 EndIf
  2360.             EndCase
  2361.             Case 20704                    ; Seperate <down arrow> pressed
  2362.                 AtSay row col attrib1 Tempstr
  2363.                 Cur = Cur + 1
  2364.                 If Cur > numListBoxIt
  2365.                     Cur = 1
  2366.                 EndIf
  2367.             EndCase
  2368.             Case 20480                    ; Keypad <down arrow> pressed
  2369.                 AtSay row col attrib1 Tempstr
  2370.                 Cur = Cur + 1
  2371.                 If Cur > numListBoxIt
  2372.                     Cur = 1
  2373.                 EndIf
  2374.             EndCase
  2375.             Case 19936                    ; Seperate <right arrow> pressed
  2376.                 key=13
  2377.             EndCase
  2378.             Case 19712                    ; Keypad <right arrow> pressed
  2379.                 key=13
  2380.             EndCase
  2381.             Case -8179                    ; Keypad <Enter> Pressed
  2382.                 key=13
  2383.             EndCase
  2384.             Case 49                       ; Select Menu Option 1
  2385.                 If Not 1 > numListBox
  2386.                     ListBoxAction = 1
  2387.                     Cur = 1
  2388.                     AtSay row col attrib1 Tempstr
  2389.                     Call ListBoxGetstr with Cur, &Tempstr
  2390.                     row = Cur + row1
  2391.                     AtSay row col attrib2 Tempstr
  2392.                     Key = 13
  2393.                 EndIf
  2394.             EndCase
  2395.             Case 50                       ; Select Menu Option 2
  2396.                 If Not 2 > numListBox
  2397.                     ListBoxAction = 2
  2398.                     Cur = 2
  2399.                     AtSay row col attrib1 Tempstr
  2400.                     Call ListBoxGetstr with Cur, &Tempstr
  2401.                     row = Cur + row1
  2402.                     AtSay row col attrib2 Tempstr
  2403.                     Key = 13
  2404.                 EndIf
  2405.             EndCase
  2406.             Case 51                       ; Select Menu Option 3
  2407.                 If Not 3 > numListBox
  2408.                     ListBoxAction = 3
  2409.                     Cur = 3
  2410.                     AtSay row col attrib1 Tempstr
  2411.                     Call ListBoxGetstr with Cur, &Tempstr
  2412.                     row = Cur + row1
  2413.                     AtSay row col attrib2 Tempstr
  2414.                     Key = 13
  2415.                 EndIf
  2416.             EndCase
  2417.             Case 52                       ; Select Menu Option 4
  2418.                 If Not 4 > numListBox
  2419.                     ListBoxAction = 4
  2420.                     Cur = 4
  2421.                     AtSay row col attrib1 Tempstr
  2422.                     Call ListBoxGetstr with Cur, &Tempstr
  2423.                     row = Cur + row1
  2424.                     AtSay row col attrib2 Tempstr
  2425.                     Key = 13
  2426.                 EndIf
  2427.             EndCase
  2428.             Case 53                       ; Select Menu Option 5
  2429.                 If Not 5 > numListBox
  2430.                     ListBoxAction = 5
  2431.                     Cur = 5
  2432.                     AtSay row col attrib1 Tempstr
  2433.                     Call ListBoxGetstr with Cur, &Tempstr
  2434.                     row = Cur + row1
  2435.                     AtSay row col attrib2 Tempstr
  2436.                     Key = 13
  2437.                 EndIf
  2438.             EndCase
  2439.             Case 54                       ; Select Menu Option 6
  2440.                 If Not 6 > numListBox
  2441.                     ListBoxAction = 6
  2442.                     Cur = 6
  2443.                     AtSay row col attrib1 Tempstr
  2444.                     Call ListBoxGetstr with Cur, &Tempstr
  2445.                     row = Cur + row1
  2446.                     AtSay row col attrib2 Tempstr
  2447.                     Key = 13
  2448.                 EndIf
  2449.             EndCase
  2450.             Case 55                       ; Select Menu Option 7
  2451.                 If Not 7 > numListBox
  2452.                     ListBoxAction = 7
  2453.                     Cur = 7
  2454.                     AtSay row col attrib1 Tempstr
  2455.                     Call ListBoxGetstr with Cur, &Tempstr
  2456.                     row = Cur + row1
  2457.                     AtSay row col attrib2 Tempstr
  2458.                     Key = 13
  2459.                 EndIf
  2460.             EndCase
  2461.             Case 56                       ; Select Menu Option 8
  2462.                 If Not 8 > numListBox
  2463.                     ListBoxAction = 8
  2464.                     Cur = 8
  2465.                     AtSay row col attrib1 Tempstr
  2466.                     Call ListBoxGetstr with Cur, &Tempstr
  2467.                     row = Cur + row1
  2468.                     AtSay row col attrib2 Tempstr
  2469.                     Key = 13
  2470.                 EndIf
  2471.             EndCase
  2472.             Case 57                       ; Select Menu Option 9
  2473.                 If Not 9 > numListBox
  2474.                     ListBoxAction = 9
  2475.                     Cur = 9
  2476.                     AtSay row col attrib1 Tempstr
  2477.                     Call ListBoxGetstr with Cur, &Tempstr
  2478.                     row = Cur + row1
  2479.                     AtSay row col attrib2 Tempstr
  2480.                     Key = 13
  2481.                 EndIf
  2482.             EndCase
  2483.         EndSwitch
  2484.     EndWhile
  2485. EndProc
  2486. ;
  2487. ;------------------------------------------------------------------------
  2488. ; ListBoxGetstr
  2489. ; usage:  Call ListBoxGetstr with item_number, &String_var
  2490. ; Returns the String value in ListBoxIt-, where "-" is the item_number
  2491. ;------------------------------------------------------------------------
  2492. ;
  2493. Proc ListBoxGetstr
  2494.     IntParm i
  2495.     strparm Tempstr
  2496.  
  2497.     Switch i
  2498.         Case 1
  2499.             Tempstr = ListBoxIt1
  2500.         EndCase
  2501.         Case 2
  2502.             Tempstr = ListBoxIt2
  2503.         EndCase
  2504.         Case 3
  2505.             Tempstr = ListBoxIt3
  2506.         EndCase
  2507.         Case 4
  2508.             Tempstr = ListBoxIt4
  2509.         EndCase
  2510.         Case 5
  2511.             Tempstr = ListBoxIt5
  2512.         EndCase
  2513.         Case 6
  2514.             Tempstr = ListBoxIt6
  2515.         EndCase
  2516.         Case 7
  2517.             Tempstr = ListBoxIt7
  2518.         EndCase
  2519.         Case 8
  2520.             Tempstr = ListBoxIt8
  2521.         EndCase
  2522.         Case 9
  2523.             Tempstr = ListBoxIt9
  2524.         EndCase
  2525.     EndSwitch
  2526. EndProc
  2527. ;
  2528. ;------------------------------------------------------------------------
  2529. ; End of ListBox code
  2530. ;------------------------------------------------------------------------
  2531. ;
  2532. ; *******************************************************************
  2533. ; *                                                                 *
  2534. ; * Program by James D. McDaniel / Copyright by Ziff Communications *
  2535. ; *                                                                 *
  2536. ; * This is GetFName.  It will display files that match the calling *
  2537. ; * File description    starting at  the requested Row and Column   *
  2538. ; * location in the calling colors.  Matchine File Name is returned *
  2539. ; * as ActionName.                                                  *
  2540. ; *                                                                 *
  2541. ; *******************************************************************
  2542. ;
  2543. ;   Syntax:
  2544. ;           StrCpy FileSpec "*.*"
  2545. ;           Call GetFName Row Col Color
  2546. ;           Return: ActionName
  2547. ;
  2548. ; Global GetFName Varibles
  2549. string F00,F01,F02,F03,F04,F05,F06,F07,F08,F09
  2550. string F10,F11,F12,F13,F14,F15,F16,F17,F18,F19
  2551. string F20,F21,F22,F23,F24,F25,F26,F27,F28,F29
  2552. string F30,F31,F32,F33,F34,F35,F36,F37,F38,F39
  2553. Integer WhichWay,StrPointer,Y,ReadLevel
  2554. ;Integer X,Lev4=112
  2555. Integer Fpage,HitMe,CurAt,CurSave,LastOne
  2556. ;
  2557. ; *********************************************************************
  2558. ; *            Main GetFName Proc, Makes Box, Get KeyStroke           *
  2559. ; *********************************************************************
  2560. ;
  2561. Proc GetFName
  2562.     IntParm XRow,YCol,Bcolor
  2563.     Integer I,XRowX,YColY,XRowA,YColA,YColB
  2564.     XRowX=XRow+11
  2565.     YColY=YCol+57
  2566.     Box XRow YCol XRowX YColY Bcolor
  2567.     XRowA=XRow+1
  2568.     YColA=YCol+59
  2569.     YColB=YCol+58
  2570.     For I = XRowA Upto XRowX
  2571.         Putvattr I YColA 8
  2572.     Endfor
  2573.     For I = XRowA Upto XRowX
  2574.         Putvattr I YColB 8
  2575.     Endfor
  2576.     XRowA=XRow+12
  2577.     YColB=YCol+2
  2578.     For I = YColB Upto YColA
  2579.         Putvattr XRowA I 8
  2580.     Endfor
  2581.     LastOne=0
  2582.     ReadLevel=1
  2583.     CurOff
  2584. Strtup:
  2585.     Call ReadName With XRow YCol Bcolor
  2586.     If LastOne==0
  2587.         If Null F00
  2588.             Return
  2589.         EndIf
  2590.     EndIf
  2591.     YColB=YCol+8
  2592.     FAtSay XRow YColB Bcolor " Use Arrow Keys & Press Enter,  ESC=QUIT " ReadLevel
  2593.     If Not LastOne==0
  2594.         FAtSay XRowX YColB Bcolor " Page (%d), Press Space Bar For Next Page " ReadLevel
  2595.     Else
  2596.         FAtSay XRowX YColB Bcolor " Last Page,  Press Space Bar For Top Page " ReadLevel
  2597.     EndIf
  2598.     Inc ReadLevel
  2599.     CurAt=-1
  2600.     Call ReadValue With XRow YCol Bcolor
  2601.     If LastOne==0
  2602.         ReadLevel=1
  2603.     Endif
  2604. GetMore:
  2605.     Call BlankMe
  2606.     KeyGet FPage
  2607.     Call KeyStroke With XRow YCol Bcolor
  2608.     If HitMe==1
  2609.         Goto GetMore
  2610.     EndIf
  2611.     If Fpage==27
  2612.         StrCpy ActiveName $NULL
  2613.         Return
  2614.     EndIf
  2615.     If Fpage==13
  2616.         Return
  2617.     EndIf
  2618.     If Fpage==-8179
  2619.         Return
  2620.     EndIf
  2621.     If Fpage==32
  2622.         Goto Strtup
  2623.     AtSay XRow YColB Bcolor "══════════════════════════════════════════"
  2624.     AtSay XRowX YColB Bcolor "══════════════════════════════════════════"
  2625.     EndIf
  2626.     Goto GetMore
  2627. EndProc
  2628. ;
  2629. ; *********************************************************************
  2630. ; *        Checks For Arrow Keys and Moves Highlighted File Name      *
  2631. ; *********************************************************************
  2632. ;
  2633. Proc KeyStroke
  2634.     IntParm XRow,YCol,Bcolor
  2635.     Integer Temp
  2636.     Temp=StrPointer-1
  2637.     CurSave=CurAt
  2638.     HitMe=0
  2639.     Switch Fpage
  2640.         Case 19424                    ; Seperate <left arrow> pressed
  2641.             Dec CurAt
  2642.             HitMe=1
  2643.         EndCase
  2644.         Case 19200                    ; Keypad <left arrow> pressed
  2645.             Dec CurAt
  2646.             HitMe=1
  2647.         EndCase
  2648.         Case 18656                    ; Seperate <up arrow> pressed
  2649.             CurAt=CurAt-4
  2650.             HitMe=1
  2651.         EndCase
  2652.         Case 18432                    ; Keypad <up arrow> pressed
  2653.             CurAt=CurAt-4
  2654.             HitMe=1
  2655.         EndCase
  2656.         Case 20704                    ; Seperate <down arrow> pressed
  2657.             CurAt=CurAt+4
  2658.             HitMe=1
  2659.         EndCase
  2660.         Case 20480                    ; Keypad <down arrow> pressed
  2661.             CurAt=CurAt+4
  2662.             HitMe=1
  2663.         EndCase
  2664.         Case 19936                    ; Seperate <right arrow> pressed
  2665.             Inc CurAt
  2666.             HitMe=1
  2667.         EndCase
  2668.         Case 19712                    ; Keypad <right arrow> pressed
  2669.             Inc CurAt
  2670.             HitMe=1
  2671.         EndCase
  2672.     EndSwitch
  2673.     If CurAt < 1
  2674.         CurAt=0
  2675.     EndIf
  2676.     If CurAt > Temp
  2677.         CurAt=Temp
  2678.     EndIf
  2679.     If HitMe==1
  2680.         Call ReadValue With XRow YCol Bcolor
  2681.     EndIf
  2682.     StrPointer=Temp+1
  2683. EndProc
  2684. ;
  2685. ; *********************************************************************
  2686. ; *        Reads Present Value For Requested File Location            *
  2687. ; *********************************************************************
  2688. ;
  2689. Proc ReadValue
  2690.     IntParm XRow,YCol,Bcolor
  2691.     Integer Temp,Row,Col,Temp2
  2692.     If CurAt==-1
  2693.         CurAt=0
  2694.         CurSave=0
  2695.     EndIf
  2696.     Temp2=CurSave
  2697.     Mod Temp2 4 Y
  2698.     Div Temp2 4 X
  2699.     Col=(Y*14)+YCol+2
  2700.     Row=X+XRow+1
  2701.     AtSay Row Col Bcolor "            "
  2702.     AtSay Row Col Bcolor ActiveName
  2703.     Temp=StrPointer
  2704.     WhichWay=1
  2705.     StrPointer=CurAt
  2706.     Call SearchList
  2707.     StrPointer=Temp
  2708.     Mod CurAt 4 Y
  2709.     Div CurAt 4 X
  2710.     Col=(Y*14)+YCol+2
  2711.     Row=X+XRow+1
  2712.     AtSay Row Col Lev4 "            "
  2713.     AtSay Row Col Lev4 ActiveName
  2714. EndProc
  2715. ;
  2716. ; *********************************************************************
  2717. ; *        Gets Name And Stores It For Later Use                      *
  2718. ; *********************************************************************
  2719. ;
  2720. Proc ReadName
  2721.     IntParm XRow,YCol,Bcolor
  2722.     Integer Col,Row,Temp
  2723.     StrPointer=0
  2724.     WhichWay=0
  2725.     If LastOne==0
  2726.         FindFirst FileSpec
  2727.         Inc LastOne
  2728.     Endif
  2729.     While Found
  2730.         Call SearchList
  2731.         Mod StrPointer 4 Y
  2732.         Div StrPointer 4 X
  2733.         Col=(Y*14)+YCol+2
  2734.         Row=X+XRow+1
  2735.         AtSay Row Col Bcolor "            "
  2736.         AtSay Row Col Bcolor $FileName
  2737.         Inc StrPointer
  2738.         If StrPointer==40
  2739.             Return
  2740.         EndIf
  2741.         FindNext
  2742.     EndWhile
  2743.     LastOne=0
  2744.     If Not StrPointer==40
  2745.         Temp=StrPointer
  2746.         While Temp < 40
  2747.             Mod Temp 4 Y
  2748.             Div Temp 4 X
  2749.             Col=(Y*14)+YCol+2
  2750.             Row=X+XRow+1
  2751.             AtSay Row Col Bcolor "            "
  2752.             Inc Temp
  2753.         EndWhile
  2754.     EndIf
  2755. EndProc
  2756. ;
  2757. ; *********************************************************************
  2758. ; *        This Program is Used To Store And Find FileName            *
  2759. ; *********************************************************************
  2760. ;
  2761. Proc SearchList
  2762.         Switch StrPointer
  2763.             Case  0
  2764.                 If WhichWay==0
  2765.                     StrCpy F00 $FileName
  2766.                 Else
  2767.                     StrCpy ActiveName F00
  2768.                 EndIf
  2769.             EndCase
  2770.             Case  1
  2771.                 If WhichWay==0
  2772.                     StrCpy F01 $FileName
  2773.                 Else
  2774.                     StrCpy ActiveName F01
  2775.                 EndIf
  2776.             EndCase
  2777.             Case  2
  2778.                 If WhichWay==0
  2779.                     StrCpy F02 $FileName
  2780.                 Else
  2781.                     StrCpy ActiveName F02
  2782.                 EndIf
  2783.             EndCase
  2784.             Case  3
  2785.                 If WhichWay==0
  2786.                     StrCpy F03 $FileName
  2787.                 Else
  2788.                     StrCpy ActiveName F03
  2789.                 EndIf
  2790.             EndCase
  2791.             Case  4
  2792.                 If WhichWay==0
  2793.                     StrCpy F04 $FileName
  2794.                 Else
  2795.                     StrCpy ActiveName F04
  2796.                 EndIf
  2797.             EndCase
  2798.             Case  5
  2799.                 If WhichWay==0
  2800.                     StrCpy F05 $FileName
  2801.                 Else
  2802.                     StrCpy ActiveName F05
  2803.                 EndIf
  2804.             EndCase
  2805.             Case  6
  2806.                 If WhichWay==0
  2807.                     StrCpy F06 $FileName
  2808.                 Else
  2809.                     StrCpy ActiveName F06
  2810.                 EndIf
  2811.             EndCase
  2812.             Case  7
  2813.                 If WhichWay==0
  2814.                     StrCpy F07 $FileName
  2815.                 Else
  2816.                     StrCpy ActiveName F07
  2817.                 EndIf
  2818.             EndCase
  2819.             Case  8
  2820.                 If WhichWay==0
  2821.                     StrCpy F08 $FileName
  2822.                 Else
  2823.                     StrCpy ActiveName F08
  2824.                 EndIf
  2825.             EndCase
  2826.             Case  9
  2827.                 If WhichWay==0
  2828.                     StrCpy F09 $FileName
  2829.                 Else
  2830.                     StrCpy ActiveName F09
  2831.                 EndIf
  2832.             EndCase
  2833.             Case 10
  2834.                 If WhichWay==0
  2835.                     StrCpy F10 $FileName
  2836.                 Else
  2837.                     StrCpy ActiveName F10
  2838.                 EndIf
  2839.             EndCase
  2840.             Case 11
  2841.                 If WhichWay==0
  2842.                     StrCpy F11 $FileName
  2843.                 Else
  2844.                     StrCpy ActiveName F11
  2845.                 EndIf
  2846.             EndCase
  2847.             Case 12
  2848.                 If WhichWay==0
  2849.                     StrCpy F12 $FileName
  2850.                 Else
  2851.                     StrCpy ActiveName F12
  2852.                 EndIf
  2853.             EndCase
  2854.             Case 13
  2855.                 If WhichWay==0
  2856.                     StrCpy F13 $FileName
  2857.                 Else
  2858.                     StrCpy ActiveName F13
  2859.                 EndIf
  2860.             EndCase
  2861.             Case 14
  2862.                 If WhichWay==0
  2863.                     StrCpy F14 $FileName
  2864.                 Else
  2865.                     StrCpy ActiveName F14
  2866.                 EndIf
  2867.             EndCase
  2868.             Case 15
  2869.                 If WhichWay==0
  2870.                     StrCpy F15 $FileName
  2871.                 Else
  2872.                     StrCpy ActiveName F15
  2873.                 EndIf
  2874.             EndCase
  2875.             Case 16
  2876.                 If WhichWay==0
  2877.                     StrCpy F16 $FileName
  2878.                 Else
  2879.                     StrCpy ActiveName F16
  2880.                 EndIf
  2881.             EndCase
  2882.             Case 17
  2883.                 If WhichWay==0
  2884.                     StrCpy F17 $FileName
  2885.                 Else
  2886.                     StrCpy ActiveName F17
  2887.                 EndIf
  2888.             EndCase
  2889.             Case 18
  2890.                 If WhichWay==0
  2891.                     StrCpy F18 $FileName
  2892.                 Else
  2893.                     StrCpy ActiveName F18
  2894.                 EndIf
  2895.             EndCase
  2896.             Case 19
  2897.                 If WhichWay==0
  2898.                     StrCpy F19 $FileName
  2899.                 Else
  2900.                     StrCpy ActiveName F19
  2901.                 EndIf
  2902.             EndCase
  2903.             Case 20
  2904.                 If WhichWay==0
  2905.                     StrCpy F20 $FileName
  2906.                 Else
  2907.                     StrCpy ActiveName F20
  2908.                 EndIf
  2909.             EndCase
  2910.             Case 21
  2911.                 If WhichWay==0
  2912.                     StrCpy F21 $FileName
  2913.                 Else
  2914.                     StrCpy ActiveName F21
  2915.                 EndIf
  2916.             EndCase
  2917.             Case 22
  2918.                 If WhichWay==0
  2919.                     StrCpy F22 $FileName
  2920.                 Else
  2921.                     StrCpy ActiveName F22
  2922.                 EndIf
  2923.             EndCase
  2924.             Case 23
  2925.                 If WhichWay==0
  2926.                     StrCpy F23 $FileName
  2927.                 Else
  2928.                     StrCpy ActiveName F23
  2929.                 EndIf
  2930.             EndCase
  2931.             Case 24
  2932.                 If WhichWay==0
  2933.                     StrCpy F24 $FileName
  2934.                 Else
  2935.                     StrCpy ActiveName F24
  2936.                 EndIf
  2937.             EndCase
  2938.             Case 25
  2939.                 If WhichWay==0
  2940.                     StrCpy F25 $FileName
  2941.                 Else
  2942.                     StrCpy ActiveName F25
  2943.                 EndIf
  2944.             EndCase
  2945.             Case 26
  2946.                 If WhichWay==0
  2947.                     StrCpy F26 $FileName
  2948.                 Else
  2949.                     StrCpy ActiveName F26
  2950.                 EndIf
  2951.             EndCase
  2952.             Case 27
  2953.                 If WhichWay==0
  2954.                     StrCpy F27 $FileName
  2955.                 Else
  2956.                     StrCpy ActiveName F27
  2957.                 EndIf
  2958.             EndCase
  2959.             Case 28
  2960.                 If WhichWay==0
  2961.                     StrCpy F28 $FileName
  2962.                 Else
  2963.                     StrCpy ActiveName F28
  2964.                 EndIf
  2965.             EndCase
  2966.             Case 29
  2967.                 If WhichWay==0
  2968.                     StrCpy F29 $FileName
  2969.                 Else
  2970.                     StrCpy ActiveName F29
  2971.                 EndIf
  2972.             EndCase
  2973.             Case 30
  2974.                 If WhichWay==0
  2975.                     StrCpy F30 $FileName
  2976.                 Else
  2977.                     StrCpy ActiveName F30
  2978.                 EndIf
  2979.             EndCase
  2980.             Case 31
  2981.                 If WhichWay==0
  2982.                     StrCpy F31 $FileName
  2983.                 Else
  2984.                     StrCpy ActiveName F31
  2985.                 EndIf
  2986.             EndCase
  2987.             Case 32
  2988.                 If WhichWay==0
  2989.                     StrCpy F32 $FileName
  2990.                 Else
  2991.                     StrCpy ActiveName F32
  2992.                 EndIf
  2993.             EndCase
  2994.             Case 33
  2995.                 If WhichWay==0
  2996.                     StrCpy F33 $FileName
  2997.                 Else
  2998.                     StrCpy ActiveName F33
  2999.                 EndIf
  3000.             EndCase
  3001.             Case 34
  3002.                 If WhichWay==0
  3003.                     StrCpy F34 $FileName
  3004.                 Else
  3005.                     StrCpy ActiveName F34
  3006.                 EndIf
  3007.             EndCase
  3008.             Case 35
  3009.                 If WhichWay==0
  3010.                     StrCpy F35 $FileName
  3011.                 Else
  3012.                     StrCpy ActiveName F35
  3013.                 EndIf
  3014.             EndCase
  3015.             Case 36
  3016.                 If WhichWay==0
  3017.                     StrCpy F36 $FileName
  3018.                 Else
  3019.                     StrCpy ActiveName F36
  3020.                 EndIf
  3021.             EndCase
  3022.             Case 37
  3023.                 If WhichWay==0
  3024.                     StrCpy F37 $FileName
  3025.                 Else
  3026.                     StrCpy ActiveName F37
  3027.                 EndIf
  3028.             EndCase
  3029.             Case 38
  3030.                 If WhichWay==0
  3031.                     StrCpy F38 $FileName
  3032.                 Else
  3033.                     StrCpy ActiveName F38
  3034.                 EndIf
  3035.             EndCase
  3036.             Case 39
  3037.                 If WhichWay==0
  3038.                     StrCpy F39 $FileName
  3039.                 Else
  3040.                     StrCpy ActiveName F39
  3041.                 EndIf
  3042.             EndCase
  3043.         EndSwitch
  3044. EndProc
  3045. ;
  3046. ;************************************************************************
  3047. ;*                  Help Screen for Main Menu                           *
  3048. ;************************************************************************
  3049. ;
  3050. Proc HelpMain
  3051.     Integer Tmp
  3052.     String Temp
  3053.     Call ScrnBack
  3054.     LargeBox=21
  3055.     BoxHeading = \
  3056.     "                                                                  "
  3057.     Call HeadBox with 2, Lev0
  3058.     LargeBox=2
  3059.     AtSay  1 26 Lev0 "ZiffNet Main Menu Help Screen"
  3060.     AtSay  3 6 Lev0 \
  3061.     "Welcome to ZiffNet!  At Ziff, we hope you will enjoy using this     "
  3062.     AtSay  4 6 Lev0 \
  3063.     "Procomm Plus 2.x Aspect Script File.  It provides easy access to the"
  3064.     AtSay  5 6 Lev0 \
  3065.     "ZiffNet forums, requiring few keystrokes, while automating several  "
  3066.     AtSay  6 6 Lev0 \
  3067.     "basic forum functions.  This includes log file capture of messages, "
  3068.     AtSay  7 6 Lev0 \
  3069.     "file descriptions, plus automated file downloads, up to five at a   "
  3070.     AtSay  8 6 Lev0 \
  3071.     "time.  You are reading the Main Menu Help Screen.  From the Main    "
  3072.     AtSay  9 6 Lev0 \
  3073.     "Menu the top five options access additional menus for the ZiffNet   "
  3074.     AtSay 10 6 Lev0 \
  3075.     "Forums, SoftLib Database, and CompuServe area.  After you have been "
  3076.     AtSay 11 6 Lev0 \
  3077.     "online with ZiffNet, you may elect to read any of your capture log  "
  3078.     AtSay 12 6 Lev0 \
  3079.     "files or if you need to execute any basic DOS commands, select the  "
  3080.     AtSay 13 6 Lev0 \
  3081.     "Shell to DOS option.  Use the Configuration option to enter all     "
  3082.     AtSay 14 6 Lev0 \
  3083.     "Aspect configuration data.  All menu options ending with '...'  will"
  3084.     AtSay 15 6 Lev0 \
  3085.     "lead to another menu. If the option ends with a '', its execu-"
  3086.     AtSay 16 6 Lev0 \
  3087.     "tion will cause automatic log on to CompuServe, then on to the      "
  3088.     AtSay 17 6 Lev0 \
  3089.     "selected area and function.  If you have a question, suggestion or  "
  3090.     AtSay 18 6 Lev0 \
  3091.     "problem with this script file, please let us know.  Send a message  "
  3092.     AtSay 19 6 Lev0 \
  3093.     "to any of the fine ZiffNet SysOps or to me, James D. McDaniel,      "
  3094.     AtSay 20 6 Lev0 \
  3095.     "CompuServe # 72241,322  . . . . . . . . Thank You for using ZiffNet!"
  3096.     AtSay 22 6 Lev0 \
  3097.     "Press F1 to read the ZIFFPLUS.DOC file, or any other key to Exit.   "
  3098.     Call BlankMe
  3099.     KeyGet Tmp
  3100.     If Tmp==15104
  3101.         StrCpy Temp RunCommand
  3102.         StrCat Temp " "
  3103.         StrCat Temp "ZIFFPLUS.DOC"
  3104.         Run Temp
  3105.     EndIf
  3106. EndProc
  3107. ;
  3108. ;************************************************************************
  3109. ;*       After Hours, Editorial, Programming and Utility Menu Help      *
  3110. ;************************************************************************
  3111. ;
  3112. Proc HelpForum
  3113.     Call ScrnBack
  3114.     LargeBox=14
  3115.     BoxHeading = \
  3116.     "   After Hours, Editorial, Programming and Utilities Menu Help  "
  3117.     Call HeadBox with 2, Lev0
  3118.     LargeBox=2
  3119.     AtSay  4 8 Lev0 \
  3120.     "From this menu you may select the ZiffNet forum you wish to use."
  3121.     AtSay  5 8 Lev0 \
  3122.     "Only PC MagNet forums are included here. After you have selected"
  3123.     AtSay  6 8 Lev0 \
  3124.     "the forum you wish to use, your next menu area is the Forum     "
  3125.     AtSay  7 8 Lev0 \
  3126.     "Action Menu.  From the Action Menu you can select to download a "
  3127.     AtSay  8 8 Lev0 \
  3128.     "forum file, read all new messages or read all new file descrip- "
  3129.     AtSay  9 8 Lev0 \
  3130.     "tions.  All items in this menu will lead you to another menu and"
  3131.     AtSay 10 8 Lev0 \
  3132.     "do not log you onto ZiffNet without more option selections.  Use"
  3133.     AtSay 11 8 Lev0 \
  3134.     "the arrow, Enter, or Esc keys to select the required functions. "
  3135.     AtSay 12 8 Lev0 \
  3136.     "                                                                "
  3137.     AtSay 14 8 Lev0 \
  3138.     "                   << Press Any key to Exit >>                  "
  3139.     Call BlankMe
  3140.     KeyGet
  3141. EndProc
  3142. ;
  3143. ;************************************************************************
  3144. ;*     Help Screen for Comp Shopper, PC Week, PC Contact, Practice      *
  3145. ;************************************************************************
  3146. ;
  3147. Proc HelpForum2
  3148.     Call ScrnBack
  3149.     LargeBox=14
  3150.     BoxHeading = \
  3151.     "  Computer Shopper, PC Week, PC/Contact and Practice Forum Help "
  3152.     Call HeadBox with 2, Lev0
  3153.     LargeBox=2
  3154.     AtSay  4 8 Lev0 \
  3155.     "From this menu you may select the ZiffNet forum you wish to use."
  3156.     AtSay  5 8 Lev0 \
  3157.     "This makes up the remaining Ziff forums. After you have selected"
  3158.     AtSay  6 8 Lev0 \
  3159.     "the forum you wish to use, your next menu area is the Forum     "
  3160.     AtSay  7 8 Lev0 \
  3161.     "Action Menu.  From the Action Menu you can select to download a "
  3162.     AtSay  8 8 Lev0 \
  3163.     "forum file, read all new messages or read all new file descrip- "
  3164.     AtSay  9 8 Lev0 \
  3165.     "tions.  All items in this menu will lead you to another menu and"
  3166.     AtSay 10 8 Lev0 \
  3167.     "do not log you onto ZiffNet without more option selections.  Use"
  3168.     AtSay 11 8 Lev0 \
  3169.     "the arrow, Enter, or Esc keys to select the required functions. "
  3170.     AtSay 12 8 Lev0 \
  3171.     "                                                                "
  3172.     AtSay 14 8 Lev0 \
  3173.     "                   << Press Any key to Exit >>                  "
  3174.     Call BlankMe
  3175.     KeyGet
  3176. EndProc
  3177. ;
  3178. ;************************************************************************
  3179. ;*                  Help Screen for SoftLib Database Menu               *
  3180. ;************************************************************************
  3181. ;
  3182. Proc HelpSoft
  3183.     Call ScrnBack
  3184.     LargeBox=14
  3185.     BoxHeading = \
  3186.     " ZiffNet SoftLib Database, File Finder and Reviews  Help Screen "
  3187.     Call HeadBox with 2, Lev0
  3188.     LargeBox=2
  3189.     AtSay  4 8 Lev0 \
  3190.     "This menu provides two SoftLib Database selections.  Select AUTO"
  3191.     AtSay  5 8 Lev0 \
  3192.     "LOG TO SOFTLIB DATABASE if you wish to browse the database files"
  3193.     AtSay  6 8 Lev0 \
  3194.     "to determine what is available.  After you have selected up to  "
  3195.     AtSay  7 8 Lev0 \
  3196.     "five files you wish to download, logout of ZiffNet and select   "
  3197.     AtSay  8 8 Lev0 \
  3198.     "Option 4. Option 4 allows you to name up to five files for      "
  3199.     AtSay  9 8 Lev0 \
  3200.     "automatic download.  Option 1 gives access to the ZiffNet File  "
  3201.     AtSay 10 8 Lev0 \
  3202.     "Finder feature and Option 2 provides access to the ZiffNet      "
  3203.     AtSay 11 8 Lev0 \
  3204.     "Product Reviews.  Use the Esc Key or the left arrow key to      "
  3205.     AtSay 12 8 Lev0 \
  3206.     "return to the Main Menu.                                        "
  3207.     AtSay 14 8 Lev0 \
  3208.     "                   << Press Any key to Exit >>                  "
  3209.     Call BlankMe
  3210.     KeyGet
  3211. EndProc
  3212. ;
  3213. ;************************************************************************
  3214. ;*                  Help Screen for Forum Action Menu                   *
  3215. ;************************************************************************
  3216. ;
  3217. Proc HelpAction
  3218.  
  3219. helpstart:
  3220.     Call ScrnBack
  3221.     LargeBox=21
  3222.     BoxHeading = \
  3223.     "                  Forum Action Menu Help Screen                 "
  3224.     Call HeadBox with 2, Lev0
  3225.     LargeBox=2
  3226.     AtSay  4 8 Lev0 \
  3227.     "This is the Forum Action Menu.  After you have selected the     "
  3228.     AtSay  5 8 Lev0 \
  3229.     "forum, you need to choose the desired action in that forum.  The"
  3230.     AtSay  6 8 Lev0 \
  3231.     "first option will Auto Log you to the selected forum and then   "
  3232.     AtSay  7 8 Lev0 \
  3233.     "switch you to manual.  While you are in manual mode you will see"
  3234.     AtSay  8 8 Lev0 \
  3235.     "that the ZIFFPLUS.ASP file is still running. At any time you can"
  3236.     AtSay  9 8 Lev0 \
  3237.     "press and hold down the F5 or F6 keys.  In a moment, a forum    "
  3238.     AtSay 10 8 Lev0 \
  3239.     "selection menu will appear.  You may then elect to 'GOTO' any of"
  3240.     AtSay 11 8 Lev0 \
  3241.     "the other  ZiffNet forums.  The next option allows you to read  "
  3242.     AtSay 12 8 Lev0 \
  3243.     "all new Forum messages.   Selection of either of the first two  "
  3244.     AtSay 13 8 Lev0 \
  3245.     "options log you on to ZiffNet at once.  The next two options    "
  3246.     AtSay 14 8 Lev0 \
  3247.     "take you to another menu.  Before you can read the file         "
  3248.     AtSay 15 8 Lev0 \
  3249.     "descriptions you must enter the library number and how many days"
  3250.     AtSay 16 8 Lev0 \
  3251.     "old the file descriptions can be.  To download a file, you must "
  3252.     AtSay 17 8 Lev0 \
  3253.     "select the library number and enter the filename for up to five "
  3254.     AtSay 18 8 Lev0 \
  3255.     "files total.  All four options allow you to change the default  "
  3256.     AtSay 19 8 Lev0 \
  3257.     "capture log file name.  The file extension of LOG is used.      "
  3258.     AtSay 21 8 Lev0 \
  3259.     "                   << Press Any key to Exit >>                  "
  3260.     VidLast=FALSE
  3261.     Call BlankMe
  3262.     VidLast=TRUE
  3263.     If BlankDone==TRUE
  3264.         goto HelpStart
  3265.     EndIf
  3266.     KeyGet
  3267. EndProc
  3268. ;
  3269. ;************************************************************************
  3270. ;*                  Help Screen for CompServe Menu                      *
  3271. ;************************************************************************
  3272. ;
  3273. Proc HelpCIS
  3274.     Call ScrnBack
  3275.     LargeBox=15
  3276.     BoxHeading = \
  3277.     "          Selected CompuServe Forums Menu Help Screen           "
  3278.     Call HeadBox with 2, Lev0
  3279.     LargeBox=2
  3280.     AtSay  4 8 Lev0 \
  3281.     "This menu provides you with several automatic functions for the "
  3282.     AtSay  5 8 Lev0 \
  3283.     "CompuServe forums.  The first option permits you to enter any   "
  3284.     AtSay  6 8 Lev0 \
  3285.     "CompuServe forum names.  After you have used this option for the"
  3286.     AtSay  7 8 Lev0 \
  3287.     "first time during one setting its name will be remembered.  The "
  3288.     AtSay  8 8 Lev0 \
  3289.     "forum name is not saved when you Exit this script file.  The    "
  3290.     AtSay  9 8 Lev0 \
  3291.     "next seven options provide the same kind of forum access to the "
  3292.     AtSay 10 8 Lev0 \
  3293.     "IBM & MS forums as you have in the ZiffNet forums.  Sometimes   "
  3294.     AtSay 11 8 Lev0 \
  3295.     "as a user you may require a file that is not located in the     "
  3296.     AtSay 12 8 Lev0 \
  3297.     "ZiffNet area.  From this menu, you can Auto Log to any of them, "
  3298.     AtSay 13 8 Lev0 \
  3299.     "read all new messages, and download up to five files.           "
  3300.     AtSay 15 8 Lev0 \
  3301.     "                   << Press Any key to Exit >>                  "
  3302.     Call BlankMe
  3303.     KeyGet
  3304. EndProc
  3305. ;
  3306. ;************************************************************************
  3307. ;*                  Billing, Electronic Mail, Terminal Setup            *
  3308. ;************************************************************************
  3309. ;
  3310. Proc HelpCIS2
  3311.     Call ScrnBack
  3312.     LargeBox=11
  3313.     BoxHeading = \
  3314.     "            Billing, Electronic Mail, Terminal Setup            "
  3315.     Call HeadBox with 2, Lev0
  3316.     LargeBox=2
  3317.     AtSay  4 8 Lev0 \
  3318.     "This menu provides you with automatic logon to several useful   "
  3319.     AtSay  5 8 Lev0 \
  3320.     "areas for the ZiffNet or CompuServe user.  You can check your   "
  3321.     AtSay  6 8 Lev0 \
  3322.     "billing information, electronic mail or terminal setup from this"
  3323.     AtSay  7 8 Lev0 \
  3324.     "menu.  After you make your selection, you will be asked if you  "
  3325.     AtSay  8 8 Lev0 \
  3326.     "want to change the default capture log filename.  The file      "
  3327.     AtSay  9 8 Lev0 \
  3328.     "extension of LOG will always be used.                           "
  3329.     AtSay 11 8 Lev0 \
  3330.     "                   << Press Any key to Exit >>                  "
  3331.     Call BlankMe
  3332.     KeyGet
  3333. EndProc
  3334. ;
  3335. ;************************************************************************
  3336. ;*                  Help Screen for Configuration Menu                  *
  3337. ;************************************************************************
  3338. ;
  3339. Proc HelpConfig
  3340.     XCurOn=FALSE
  3341.     Call ScrnBack
  3342.     LargeBox=21
  3343.     BoxHeading = \
  3344.     "                                                                    "
  3345.     Call HeadBox with 2, Lev0
  3346.     LargeBox=2
  3347.     AtSay  1 24 Lev0 "ZiffNet Configuration Help Screen"
  3348.     AtSay  3 6 Lev0 \
  3349.     "The Configuration Menu allows entry and editing of personal Config- "
  3350.     AtSay  4 6 Lev0 \
  3351.     "uration data without the need to recompile this Aspect script file. "
  3352.     AtSay  5 6 Lev0 \
  3353.     "Items 1 and 2 require the dialing number from your Primary dialing  "
  3354.     AtSay  6 6 Lev0 \
  3355.     "directory.  The first number is for the lowest online speed you     "
  3356.     AtSay  7 6 Lev0 \
  3357.     "would use while in manual mode.  The second number is for the       "
  3358.     AtSay  8 6 Lev0 \
  3359.     "highest speed you would use for all automated online service. Option"
  3360.     AtSay  9 6 Lev0 \
  3361.     "3 is your CompuServe Password.  Option 5 is your existing Log file  "
  3362.     AtSay 10 6 Lev0 \
  3363.     "directory.  Option 6 is your ASCII file editor or viewer.  You may  "
  3364.     AtSay 11 6 Lev0 \
  3365.     "add the full path name if needed.  Option 7 is your default file    "
  3366.     AtSay 12 6 Lev0 \
  3367.     "download directory.  Option 8 is your default Online Forum mode that"
  3368.     AtSay 13 6 Lev0 \
  3369.     "you use.  You must Setup the forum to match.  Option 9 allows you to"
  3370.     AtSay 14 6 Lev0 \
  3371.     "set the screen blanking interval in seconds.  If you enter a time of"
  3372.     AtSay 15 6 Lev0 \
  3373.     "0, screen blanking will not be active.  Option 'C' sets either the  "
  3374.     AtSay 16 6 Lev0 \
  3375.     "COLOR or B&W display mode.  Option 'M' sets the number of display   "
  3376.     AtSay 17 6 Lev0 \
  3377.     "lines you see when online.  Option S allows the saving of configur- "
  3378.     AtSay 18 6 Lev0 \
  3379.     "ations.  You can use Esc to abort the present entries.  All options "
  3380.     AtSay 19 6 Lev0 \
  3381.     "are saved in the file 'ZIFF.CFG'.  If you pass out a copy of this   "
  3382.     AtSay 20 6 Lev0 \
  3383.     "program, do not give them the CFG file!                             "
  3384.     AtSay 22 6 Lev0 \
  3385.     "                   << Press Any Key To Continue >>                  "
  3386.     Call BlankMe
  3387.     KeyGet
  3388.     XCurOn=TRUE
  3389. EndProc
  3390.